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ABSTRACT 


THE MNCDA DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED 

TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE. 

ADDITIONAL SUB-SECTIONS ARE PROVIDED TO VERIFY THE ANALOG OUTPUT. 
TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL 
VIA THE ODT/CONSOLE MICROCODE AND THE PROVISIONS OF SECTION 5. 


REQUIREMENTS 


EQUIPMENT 


1. PDP11/03 COMPUTER OR LSI-11_ PROCESSOR 
2. DLV11 WITH I/O TERMINAL (LA36, VT100, ETC.) 
3. MNCDA (D/A) OPTION 


STORAGE 
THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOADING PROCEDURE <XXDP> 


1. ENSURE THAT THE DIAGNOSTIC LOAD MEDIA IS INSTALLED IN DRIVE 0. 

2. BOOT THE MEDIA BY TYPING ‘175000G'’ IF IN THE ODT MICRO-CODE STATE 
OR CYCLING THE POWER *ON-OFF*’ SWITCH 

3. UPON SUCCESSFUL BOOTING OF THE LOAD MEDIA, THE XXDP MONITOR 
WILL IDENTIFY ITSELF AND INFORM THE OPERATOR OF THE OPERATING 
OPTIONS THAT MAYBE SELECTED. 

4. THE OPERATOR SHOULD TYPE 'R VMND??'' FOLLOWED BY A ‘'RETURN'' 
THE XXDP MONITOR WILL LOAD THE PROGRAM INTO MEMORY AND START 
THE PROGRAM AT LOCATION 200. 


STARTING PROCEDURE 


1. THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 

2. THE PROGRAM WILL NOW ASK FOR AN INITIAL SWITCH REGISTER 
VALUE TO BE STORED IN THE SOFTWARE SWITCH REGISTER. 

3. THE PROGRAM WILL NOW DISPLAY THE MENU OF TEST OR LOOP SELECTION. 
THE OPERATOR SELECTS THE TESTS BY TYPING SELECTED CHARACTER FOLLOWED 
BY DEPRESSING THE * RETURN" KEY. 


PROGRAM START 


200 STARTING ADDRESS OF THE PROGRAM 
204 RESTART ADDRESS OF THE PROGRAM 
210 STARTING ADDRESS FOR THE OPTION TESTER. 


SEQ 0003 


5.0 


5.1 


5.2 


6.0 


6.1 


6.2 


SOFTWARE SWITCH REGISTER 


OPT IONS 

SWITCH OCTAL FUNCTION 

SW15=1 100000 HALT ON ERROR 

SW14=1 040000 LOOP ON TEST 

SW13=1 020000 INHIBIT ERROR TYPEOUTS 
SW12=1 010000 INHIBIT SIZING THE NUMBER OF MNCDA'S 
SW11=1 004000 INHIBIT ITERATIONS 

SW10=1 002000 BELL ON ERROR 

SWO9=1 001000 LOOP ON ERROR 

SWO8=1 0004Xxx LOOP ON TEST IN SWR </7-0> 
CONTROL 


1. THE TEST OR LOOP MAYBE STOPPED BY TYPING THE ‘‘CONTROL & C"' 
KEYS. THIS OPERATION WILL STOP THE PROGRAM AND ENABLE THE 
OPERATOR TO SELECT DIFFERENT PROGRAM COMMANDS. 

2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE ‘CONTROL & G* KEYS. THIS 
KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
WITH A CARRIAGE RETURN. 

3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 
ERROR CONDITION WITH BIT15 SET (HALT ON ERROR), STEP #2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 
"P* (CONTINUE). 

4. IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 
"CONTROL & G OR C° COMMANDS MAY BE NECESSARY TO BE 
ACKNOWLEDGE BY THE PROGRAM. 


ERROR REPORTING 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


ERROR DATA 
*UNIT UNIT NUMBER 
*ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
*BUSADR MNCDA BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 
RCVD DATA THAT WAS RECEIVED 


*ALWAYS REPORTED 


SEQ 0004 


7.0 


7.1 


7.2 


led 


7.4 


fos 


8.0 


MISCELLANEOUS 


MNCDA BUS ADDRESS MODIFICATION 


MODIFY LOCATION ‘SS8ASE" (LOC. 1244) IF BASE BUS ADDRESS IS NOT 171060. 


*NOTE: USE THE ‘B’' PROGRAM COMMAND TO MODIFY THIS LOCATION 
AFTER PROGRAM LOAD. 


XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REQUIRES 8K OR MORE). 
THIS DIAGNOSTIC DOES SUPPORT ‘‘APT'’ BUT HAS NOT BEEN RUN UNDER IT. 


POWER FAIL 


A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 


MULTIPLE MNCDA INTERFACE TESTING 


THIS PROGRAM DOES ‘'AUTO-SIZE'* THE NUMBER OF MNCDA‘S CONNECTED. 
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 MNCDA INTERFACES 
WITH CONTIGUOUS BUS ADDRESSES. THE ‘‘AUTO-SIZE’* CAN BE INHIBITED 
BY THE OPERATOR SETTING BIT 15 OF LOCATION ‘SENV (LOC. 1214) OR 
SETTING SWITCH REGISTER BIT 12 TO A ONE. 

USE THE ‘B'* PROGRAM COMMAND TO LOAD THE BASE ADDRESS. 


RESTRICTIONS 
NONE 
EXECUTION TIME 


EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS 
TO ABOUT 20 SECONDS WITH ITERATIONS ENABLED WITH ONE MNCDA CONNECTED. 


AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
END OF PASS WILL ALSO REPORT TOTAL ERROR COUNT AND ANY UNIT'S THAT HAD ERRORED. 


SEQ 0005 


9. PR TEST RIPTIONS 
2.) Tn ey eee ee SEQ 0006 


9.1 L = LOGIC TESTS 


THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE MNCDA DAC CONTROL. 
A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 

EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 

THE PROGRAM WILL AUTO=SIZE UP TO 8 MNCDA'S TO BE TESTED. 


7 R = RAMP LOOP 


THIS LOOP IS PROVIDED A METHOD FOR THE OPERATOR TO INSPECT AND VERIFY 
ANALOG OPERATION OF ALL DAC BITS. THE LOOP ALSO ENABLES THE OPERATOR TO VERIFY 
THAT NO TWO DAC OUTPUTS ARE INTERCONNECTED. 


9.3 S = STATIC CALIBRATION LOOP 


THIS LOOP PROVIDES THE OPERATOR WITH A SIMPLE LOOP_FOR VERIFYING 

THE INDIVIDUAL DAC BITS AND THE OPERATION OF DAC 43 DIGITAL OUTPUT BITS. 
THE VALUE OF THE SWITCH REGISTER IS LOADED INTO ALL DAC’S 

AND THE OUTPUT VOLTAGE CAN BE MONITORED. 


9.4 D = DYNAMIC CALIBRATION LOOP 


THIS PROVIDES THE OPERATOR WITH A LOOP THAT LOADS THE VALUE OF THE 
SWITCH REGISTER INTO THE DAC’S AND THEN AFTER A DELAY CLEARS 

THE DAC REGISTERS. THIS PROVIDES A SWITCHING PATTERN BETWEEN THE 
SELECTED VOLTAGE AND 0. 


9.5 L = LOGIC TEST WITH TESTER SUPPORT (SA 210) 


INITIAL PERFORMS THE LOGIC TESTS AND THEN EMPLOYS A KNOWN 

GOOD A TO D CONVERTER TO AID IN ADJUSTING THE POT*S ON THE 

MNCDA BOARD. THE OPERATOR IS INFORMED AS TO WHICH POT TO ADJUST 
AND WHICH D TO A CONVERTER IS TESTED. 


10.0 LISTING 


CVMND-A MNCAA 
CVMNDA.P11 


DIAGNOSTIC 
TABLE OF CONTENTS 


BASIC DEFINITIONS 
OPERATIONAL SWITCH SETTINGS 
TRAP CATCHER 
STARTING ADDRESS(ES) 
ACT11 HOOKS 
APT Ange a bie BLOCK 


COMMON T 


MACY11 27(654) 19-SEP-78 08:58 


APT MAILBOX~E TABLE 

ERROR POINTER TABLE 
INITIALIZE THE COMMON TAGS 
TYPE PROGRAM NAME 


GET VALUE FOR SOFTWARE SWITCH REGISTER 
SUBROUTINE TO CHANGE BASE ADDRESS OF DEVICE 
DETERMINE THE NUMBER OF MNCDA ON THIS SYSTEM 


DESCRIPTION 


seer + CORRECT I.D. VALUES 


T THAT THE MNCDA RESPONDS TO THE CPU 


THAT DACO REGISTER CAN BE CLEARED 
THAT DACO REGISTER CAN BE LOADED WITH #7777 
THAT DACO REGISTER CAN HOLD A FLOATING 1 PATTERN 


THAT DACO CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 


THE ‘‘SUB*' INSTRUCTION WORKS ON DACO 
THAT DAC1 REGISTER CAN BE CLEARED 
THAT DAC #1 REGISTER CAN BE LOADED WITH #7777 


THAT DAC #1 REGISTER CAN HOLD A FLOATING 1 PATTERN 
THAT DAC1 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 


THE ‘‘SUB"' INSTRUCTION WORKS ON DAC? 
THAT THE DAC #2 REGISTER CAN BE CLEARED 


THAT THE DAC #2 REGISTER CAN BE LOADED WITH #7777 
THAT THE DAC #2 REGISTER CAN HOLD A FLOATING 1 PATTERN 
THAT DAC2 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 


THE ‘‘SUB’’ INSTRUCTION WORKS ON DAC2 
THAT THE DAC #3 REGISTER CAN BE CLEARED 


THAT THE DAC #3 REGISTER CAN BE LOADED WITH #7777 
THAT THE DAC #3 REGISTER CAN HOLD A FLOATING 1 PATTERN 
THAT DAC3 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 


THE *‘SUB’’ INSTRUCTION WORKS ON DAC3 


THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA 


THAT RESET CLEARS DAC #0 REGISTER 
THAT RESET CLEARS DAC #1 REGISTER 
THAT RESET CLEARS DAC #2 REGISTER 
T THAT RESET CLEARS DAC #3 REGISTER 


DETERMINE IF MORE MNCDA'S REMAIN TO BE TESTED 


DETERMINE IF RUNNING ON THE HARDWARE TESTER 


TEST 


THAT DAC #3 OUTPUT BITS (0-3) FUNCTION 


VERIFY THE MNCDA +15 SUPPLY 
VERIFY THE MNCDA -15 SUPPLY 
DACO OFFSET ADJUSTMENT 
DACO GAIN ADJUSTMENT 

DACO CALIBRATION 

DACO 2.5 VOLT SWITCH CHECK 


(IF NOT REPORT END OF PASS) 


SEQ 0007 
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TABLE OF CONTENTS 


145 DACO 10.0 VOLT SWITCH CHECK 
T46 DACO UNIPOLAR SWITCH CHECK 

147 DAC1 OFFSET ADJUSTMENT 

T50 DAC] GAIN ADJUSTMENT 

151 DAC1 CALIBRATION 

T52 DAC1 2.5 VOLT SWITCH CHECK 

153 DAC1 10.0 VOLT SWITCH CHECK 
154 DAC1 UNIPOLAR SWITCH CHECK 

T55 DAC2 OFFSET ADJUSTMENT 

T56 DAC2 GAIN ADJUSTMENT 

157 DAC2 CALIBRATION 

T60 DAC2 2.5 VOLT SWITCH CHECK 

T61 DAC2 10.0 VOLT SWITCH CHECK 
T62 DAC2 UNIPOLAR SWITCH CHECK 

163 DAC3 OFFSET ADJUSTMENT 

T64 DAC3 GAIN ADJUSTMENT 

T65 DAC3 CALIBRATION 

T66 DAC3 2.5 VOLT SWITCH CHECK 

167 DAC3 10.0 VOLT SWITCH CHECK 
T70 DAC3 UNIPOLAR SWITCH CHECK 


END OF PASS ROUTINE 

SUBROUTINE TO ADJUST THE DAC'S OFFSET POTS 
SUBROUTINE TO ADJUST THE GAIN ADJUSTMENT POTS 
SUBROUTINE TO TEST THE D/A CALIBRATION 

SUBROUTINE TO VERIFY THE 2.5 VOLT SWITCH POSITION 
SUBROUTINE TO VERIFY THE 10.0 VOLT SWITCH POSITION 
SUBROUTINE TO VERIFY THE UNIPOLAR SWITCH POSITION 
FIELD TEST MODULE DIGITAL OUTPUT LAMP LOOP 
SUBROUTINE TO CONVERT CHANNEL N ON THE TESTER A/D 
SUBROUTINE TO LOOP UNTIL OPERATOR TYPES THE ‘RETURN’ KEY 
SUBROUTINE TO COMPARE TWO LOCATIONS BY THE SPREAD 
DAC ADJUSTMENT ROUTINES 

FULL SCALE RAMP ON EACH RAMP 

CONTROL CHARACTER DETECTOR 

STATIC DAC CALIBRATION 

DYNAMIC DAC CALIBRATION 

MISC. SUB-ROUTINES, ASCII MESSAGES AND SOFTWARE HANDLERS 
ASCII MESSAGES 

BINARY TO ASCII AND TYPE ROUTINE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

SCOPE HANDLER ROUTINE 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPEOUT ROUTINE 

POWER DOWN AND UP ROUTINES 

BINARY TO OCTAL (ASCII) AND TYPE 

TYPE ROUTINE 

TTY INPUT ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 

APT COMMUNICATIONS ROUTINE 

TRAP DECODER 

TRAP TABLE 


SEQ 0008 
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DIAGNOSTIC 


: #PROGRAM BY RAYMOND SHOOP 


S aTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC-11-DZQAC-C3), 1977. 


* SBTTL BASIC DEFINITIONS 


ca ha OF THE STACK POINTER *** 1100 *** 


;BASIC DEFINITION OF ERROR CALL 
: IBASIC DEFINITION OF SCOPE CALL 


STACK= 


-EQUIV EMT,ERROR 
“EQUIV IOT,SCOPE 


> *MISCELLANEOUS DEFINITIONS 
HT= 11 ;;CODE FOR HORIZONTAL TAB 
;;CODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETURN 
;;CODE FOR CARRIAGE RETURN-LINE FEED 
;;PROCESSOR STATUS WORD 


;;STACK LIMIT REGISTER 

;;PROGRAM INTERRUPT REQUEST REGISTER 
; HARDWARE SWITCH REGISTER 

; HARDWARE DISPLAY REGISTER 


a REGISTER Seakan kee? 


LF= 12 

CR= 15 
CRLF= 200 
PS= 177776 


-EQUIV PS,PSW 
STKLMT= 177774 
PIRQ= 177772 
DSWR= 177570 
DDISP= 177570 


JAN 19, 


RO= a3 RAL REGISTER 
R1= a1 ;;GENERAL REGISTER 
R2= Ze ;;GENERAL REGISTER 
R3= %3 ;;GENERAL REGISTER 
R4= a4 ae RAL REGISTER 
R5= z5 ;;GENERAL REGISTER 
R6= %6 ; GENERAL REGISTER 
R7= 47 ;;GENERAL REGISTER 
SP= 26 : STACK POINTER 
PC= %7 ; PROGRAM COUNTER 
;*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ;:PRIORITY LEVEL 0 
PR1= 40 ;;PRIORITY LEVEL 1 
PR2= 100 ::PRIORITY LEVEL 2 
PR3= 140 ;:PRIORITY LEVEL 3 
PR4= 200 ;;PRIORITY LEVEL 4 
PR5= 240 ;;PRIORITY LEVEL 5 
PR6= 300 ;;PRIORITY LEVEL 6 
PR7= 340 ;;PRIORITY LEVEL 7 
;*' "SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


SW14= 40000 


SEQ 0009 
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CVMND-A MNCAA DIAGNOSTIC 

CVMNDA P11 BASIC DEFINITIONS SEQ 0010 
(1) 020000 Sw13= 20000 
(1) 010000 SWi2= 10000 
(1) 000 Swi1= 400 
(1) 002000 Sw10= 2000 
(1) 001000 swO9= 1000 
(1) 000400 SwO8= 400 
(1) 000200 SwO7= 200 
(1) 000100 SwO6= 100 
(1) 0 swOS= 40 
(1) 000020 Sw04= 20 
(1) 000010 SwO3= 10 
(1) 000004 SwO2= 4 
(1) 000002 SwOl= 2 
(1) 000001 swo0= 1 
(1) EQUIV Sw09,SW9 
(1) EQUIV Sw08,SW8 
(1) EQUIV SWO7,SW7 
(1) EQUIV SwW06, 
(1) EQUIV SWO5,SW5 
(1) EQUIV SWO04,SW4 
(1) EQUIV SW03,SW3 
(1) EQUIV SWO2,SW2 
(1) EQUIV SWwO1,SW1 
1) -EQUIV Sw00,SWO 
(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) BIT11= 4000 
(1) 002000 BIT10= 2000 
(1) 001000 BITO9= 1 
(1) 000400 BITO8= 400 
(1) 000200 BIT07= 
(1) 000100 BIT06= 100 
(1) BITOS= 40 
(1) 000020 BIT04= 20 
(1) 000010 BITO3= 10 
(1) BITO2= 4 
(1) 2 BITO1= 2 
(1) 000001 BITOO= 1 
(1) EQUIV BITO9.BIT9 
(1) EQUIV BITO8,BIT8 
(1) EQUIV BIT07,BIT7 
(1) EQUIV BIT06,BIT6 
(1) EQUIV BITOS,BITS 
(1) EQUIV BIT04,B 
(1) EQUIV BITO3,BIT3 
(1) EQUIV BITO2.BIT2 
(1) EQUIV BITO1,BIT1 
(1) EQUIV BITOO,BITO 
(1) :*BASIC ''CPU'’ TRAP VECTOR ADDRESSES 


= 
CVMND~A MNCAA DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:58 PAGE 1-2 
CVMNDA.P11 BASIC DEFINITIONS SEQ 0011 


(1) 000004 ERRVEC= 4 3; TIME OUT AND OTHER ERRORS 

(1) 000010 RESVEC= 10 ey tH AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 ' BIT 

(1) 000014 TRTIVEC= 14 >: TRACE TRAP 

(1) 000014 BPTVEC= 14 ; BREAKPOINT TRAP (BPT) 

(1) 000020 IOTVEC= 20 33 INPUT/OUTPUT TRAP (IOT) **SCOPE** 
(1) 000024 PWRVEC= 24 ;;POWER FAIL 

(1) 000030 EMTVEC= 30 + s EMULATOR TRAP (EMT) **ERROR** 

(1) 000034 TRAPVE C=34 ;""TRAP** TRAP 

(1) 000060 TKVEC= 60 ss TTY KEYBOARD VECTOR 

(1) 000064 TPVEC= 64 ;TTY PRINTER VECTOR 

ys 000240 PIRQVEC=240 > PROGRAM INTERRUPT REQUEST VECTOR 
20 171060 ABASE=171060 
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000200 000002 
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SEQ 0012 
.SBTTL OPERATIONAL SW: TCH SETTINGS 
** 
be SWITCH USE 
_*k i £#}; <n = = i i i a: es ss es is a ss a 
3* 15 HALT ON ERROR 
s* 14 LOOP ON TEST 
7* 13 INHIBIT ERROR TYPEOUTS 
;# 12 INHIBIT SIZING # OF MNCAA‘'S 
;* 11 INHIBIT ITERATIONS 
7* 3 LOOP ON ERROR 
o* 8 LOOP ON TEST IN SWR<7:0> 
.SBTTL TRAP CATCHER 


.=0 
7*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; *LOCATION ns O TO CATCH IMPROPERLY LOADED VECTORS 


.=1 
-WORD 0 3;SOFTWARE DISPLAY REGISTER 
-WORD 0 ;3SOFTWARE SWITCH REGISTER 
” SBITL STARTING ADDRESS(ES) 


@ABEGIN ;; JUMP TO eremigr ADDRESS OF PROGRAM 


JMP RESTRT ESTART ADDRESS 
JMP TESTER ; JUMP TO TESTER SA. 
.=100 

104,200,2 3B EVENT SAFE GUARD 
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CVMANDA.P11 ACT11 HOOKS SEQ 0013 
31 .SBTTL ACT11 HOOKS 
(1) 
(2) 5 TERA REEREKEEKERERREKEERERKERAEERKEERERRERERRREREREEE 
(1) sHOOKS REQUIRED BY ACT11 
(1) 000106 $SVPC=. sSAVE PC 
(1) 000046 .=46 
Sy. 000046 sage g —— ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP 
(1) 0000 _= 
(1) 900052 000000 -WORD 0 +s2)SET LOC.52 TO ZERO 
(1) 000106 .=$SVPC >; RESTORE PC 
32 001000 -=1000 
B .SBTTL APT PARAMETER BLOCK 
(2) 5 LARA EKREKEKEKEREKEREREEEREREREKEREREEREEREEEREREEREKEE 
(1) >SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) SL RRR EERE EREKEEEEEKEKEKEKEEKEEKEREEERKEKKEREEEREREKEERER 
(1) 001000 .$X=. : SAVE CURRENT LOCATION 
(1) 000024 ~=24 :;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 :;FOR APT START UP 
000044 .=44 :;POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 
001000 -=.$X  ;;RESET LOCATION COUNTER 


5 TERRA EEKEREEEEREKEREKEKEKEEKEKEKEKEKEEKKEKEKEEEKEKEEKEEEKEKEREKEEEER 


;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


001000 SAPTHD: 

001000 000000 SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001170 SMBADR: .WORD S$MAIL  ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

001004 000030 STSTM: .WORD 30 :;RUN TIM OF LONGEST TEST 

001006 000010 SPASTM: .WORD 10 ¢ ¢RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

001010 000030 SUNITM: .WORD 30 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


ee ae ee, a a et ee, a, ee ee ee 
ett a tt A) Ws Wt 
ee ee ee eee ee ee ee ee 


001012 000031 . WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


oT am | 
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.SBTTL COMMON TAGS 


TORR RABAEBAABARSASAALSLAALSLALEAAALAESES ERASER AR ARSE SERA RA RAR ARA SARS ARE DSS SD: 


:*THIS 
3 *USED 

.=1100 
SCMTAG: 

. WORD 
STSTNM: .BYTE 
SERFLG: .BYTE 
SICNT: .WORD 
S$LPADR: .WORD 
SLPERR: .WORD 
SERTTL: .WORD 
SITEMB: .BYTE 
SERMAX: .BYTE 
SERRPC: .WORD 
SGDADR: .WORD 
SBDADR: .WORD 
SGDDAT: .WORD 
SBDDAT: .WORD 

. WORD 

. WORD 
SAUTOB: .BYTE 
SINTAG: .BYTE 

. WORD 
SWR: . WORD 
DISPLAY: .WOR 
STKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
$NULL: .BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
STPFLG: .BYTE 
STIMES: 
SESCAPE :0 
$QUES: .ASCII 
SCRLF ASCII 
SLF : eASCIZ 


elelelelelelelele® 121 ele] eo) ai eleila) 


/?/ 
<15> 
<12> 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


;3START OF COMMON TAGS 


3; CONTAINS THE TEST NUMBER 

3: CONTAINS ERROR FLAG 

>; CONTAINS SUBTEST ITERATION COUNT 
3; CONTAINS SCOPE LOOP ADDRESS 

;: CONTAINS SCOPE RETURN FOR ERRORS 
3; CONTAINS TOTAL ERRORS DETECTED 


CONTAINS MAX. E 

>: CONTAINS PC OF LAST ERROR INSTRUCTION 
:; CONTAINS ADDRESS OF ‘GOOD’ DATA 

: CONTAINS ADDRESS OF ‘BAD’ DATA 

: ; CONTAINS — DATA 


,e DATA 
;;RESERVED--NOT TO SE USED 


: ;AUTOMATIC MODE INDICATOR 
72 INTERRUPT MODE INDICATOR 


; :ADDRESS OF SWITCH REGISTER 

; ADDRESS OF DISPLAY REGISTER 

3; TTY KBD STATUS 

7: TTY KBD BUFFER 

::TTY PRINTER STATUS REG. ADDRESS 

:: TTY PRINTER BUFFER REG. ADDRESS 

:; CONTAINS NULL CHARACTER FOR FILLS 

pets ae # OF FILLER CHARACTERS REQUIRED 
s INSERT FILL CHARS. AFTER A ‘LINE FEED"’ 
:' "TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 

NUMBER OF ITERATIONS 

«ESCAPE ON ERROR ADDRESS 

> ;QUESTION MARK 

7; CARRIAGE RETURN 

scLINE FEED 


SRR EE 


.SBTTL APT MAILBOX~ETABLE 


5 LARA REE EKEREEEEEEREEEKEEEREERREREREREKRE EEE 


AMSGTY 
AF ATAL 
ATESTIN 
APASS 
ADEVCT 
AUNIT 


;;APT MAILBOX 
;3MESSAGE TYPE CODE 
;;FATAL ERROR NUMBER 
;; TEST NUMBER 


35 S 
;:DEVICE COUNT 
::1/0 UNIT NUMBER 


SEQ 0014 


CVMND-A MNCAA 
CVMNDA .P11 


DIAGNOSTIC 
APT MAILBOX-E TABLE 


000 
000 


MACY11 27(654) 
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SEQ 0015 


; MESSAGE ADDRESS 
; ;MESSAGE LENGTH 
+ APT on ete 


CAPT SWITCH REGISTER 
;;USER SWITCHES 
-:CPU TYPE,OPTIONS 
BITS 15=11=CPU TYPE 
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06,PDQ=07 ,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
;z;HIGH ADDRESS,M.S. BYTE 
>:;MEM. TYPE,BLKA1 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
> HIGH ADDRESS,BLKA1 
MEM.LAST ADDR. =3 BYTES. THIS WORD AND LOW OF ‘’TYPE'’ ABOVE 
3z;HIGH ADDRESS.M.S. BYTE 
> >MEM. TYPE ,BLK#2 
:;MEM.LAST ADDRESS,BLK&#2 
;;HIGH ADDRESS,M.S.BYTE 
> :MEM. TYPE ,BLKA3 
:;MEM.LAST ADDRESS,BLKA&AS3 
;;HIGH ADDRESS,M.S.BYTE 
> MEM. TYPE ,BLKA4 
>;MEM.LAST ADDRESS,.BLK&4 
3: INTERRUPT VECTORA1 ,~BUS PRIORITYA1 
3: INTERRUPT VECTORA2BUS PRIORITY#2 
::BASE ADDRESS OF EQUIPMENT UNDER TEST 
;:DEVICE MAP 
:: CONTROLLER DESCRIPTION WORDA1 


CVMND-A MNCAA 
CVMNDA.P11 


i a te, te, et, ee, at ee, ee, te, i ee, i el 
Fs ee ee ee ae a ae ee a a a ae 


oO nO MMMM WUIVIVIUTUI ES BS ERE EEE SE BWWWGS 
VASSISSLASSSVSVRYVLUWUYSaNS REG LSEVSNVE 


DIAGNOSTIC 
ERROR POINTER TABLE 


010432 
012154 
013650 
013770 


010531 
012114 
013660 
013770 


010574 


013770 
010637 
012114 
013710 
013770 
010702 
012114 
013724 
013770 


010745 


013770 
011034 


013770 


MACY11 27(654) 
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.SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
¢*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE ; PERTINENT. 


; *NOTE 


« eNOTE2: 


SERRTB: 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


7 ITEM 


: ITEM 


ITEM 


IF S$ITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC) 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;z:POINTS TO THE DATA FORMAT 


;BUT TIME-OUT WHEN REF. A DAC ADDRESS 
sERRPC BUSADR 
:SERRPC $BDDAT 


;DAC #0 REGISTER IN ERROR 
sERRPC BUSADR GOOD BAD 
;SERRPC DACO $GDDAT $8DDAT 


:DAC #1 REGISTER IN ERROR 
;ERRPC BUSADR GOOD BAD 
;SERRPC DAC1 SGDDAT S$BDDAT 


;DAC #2 REGISTER IN ERROR 
sERRPC BUSADR GOOD BAD 
;SERRPC DAC2 S$GDDAT S$BDDAT 


;DAC #3 REGISTER IN ERROR 
;ERRPC BUSADR GOOD BAD 
;SERRPC DAC3 $GDDAT S$8DDAT 


sSELTCTED DAC OFFSET POT IS NOT ADJUSTED CORRECTLY 
“ERRPC ~BUSADR EXPECT WAS SPREAD 
:SERRPC DACBAD $GDDAT $BDDAT SPREAD 


;SELECTED DAC GAIN POT IS NOT ADJUSTED CORRECTLY 
:ERRPC BUSADR EXPECT WAS SPREAD 
:SERRPC DACBAD $GDDAT $B8DDAT SPREAD 


SEQ 0016 


: = 
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CVMNDA.P11 ERROR POINTER TABLE SEQ 0017 

73 ITEM 10 

74 001342 011121 EM10 :SELECTED DAC HAS A LINEARITY PROBLEM 
75 001344 012176 DH6 sERRPC BUSADR EXPECT WAS SPREAD 
76 001346 013740 DT6 :SERRPC DACBAD $GDDAT S$BDDAT SPREAD 
77 001350 013770 DFO 

78 ITEM 11 

79 «001352 011174 EM11 3+15 VOLT SUPPLY IS INCORRECT 

80 001354 012176 DH6 :ERRPC BUSADR EXPECT WAS SPREAD 
81 001356 01374 DT6 sSERRPC DACBAD $GDDAT S$B8DDAT SPREAD 
82 001360 013770 DFO 

83 ITEM 12 

84 001362 011237 EM12 7-15 VOLT SUPPLY IS INCORRECT 

85 001364 012176 DH6 sERRPC BUSADR EXPECT WAS SPREAD 
86 001366 013740 DT6 :SERRPC DACBAD $GDDAT S$B8DDAT SPREAD 
87 001370 013770 DFO 

88 ITEM = 13 

89 001372 011302 EM13 :DAC #3 DIGITAL OUTPUT BITS IN ERROR 
90 001374 012114 DH1 s;ERRPC BUSADR GOOD BAD 

91 001376 013724 DTS sSERRPC DAC3 S$GDDAT S$BDDAT 

92 001400 013770 DFO 

93 : ITEM 14 

94 001402 000000 000000 000000 0,0.0,0 :;CALL IS NOT USED 

001410 000000 

95 : ITEM 15 

96 001412 011402 EM15 ; INCORRECT I.D. VALUE CODE 

97 001414 012114 DH1 ;ERRPC BUSADR GOOD BAD 

98 001416 013660 DT2 sSERRPC DACO S$GDDAT S$BDDAT 

99 001420 013770 DFO 
100 ; ITEM 16 
101 001422 011442 EM16 :SELECTED DAC HAS A FRONT PANEL SWITCH PROBLEM 
102 001424 012176 DH6 sERRPC BUSADR EXPECT WAS SPREAD 
103 001426 013740 DT6 :SERRPC DACBAD $GDDAT S$BDDAT SPREAD 
ie 001430 013770 _— yy 

| : 
106 001432 011520 012242 013756 EM17,DH17,DT17,DFO sEXISTING UNIT NOW FAILES TO RESPOND 
_ 001440 013770 
108 001442 000010 VADDR: 10 :OFFSET TO NEXT MNCDA ADDRESS 

109 001444 000000 EVER: 0 :ADDITIONAL UNIT CONTROL WORD 

110 001446 171060 DACO: ABASE 
111 001450 171062 DAC1 ABASE +2 
112 001452 171064 DAC2 ABASE +4 
A 001454 171066 DAC3 ABASE +6 
115 001456 167772 TSTR2: 167772 : SNOW WHITE TESTER ADDRESSES 

116 001460 167774 DRIN: 167774 
117 001462 170400 ADCS: 170400 :KNOWN GOOD A/D ADDRESSES 

118 001464 170402 ADBR: 170402 


CVMND-A MNCAA 
CVMNDA .P11 


Fe ae a, t,t, ee, a ce, ee ee 
ee er a ee ee ee ee ee 8 ee ee te 


DIAGNOSTIC 
ERROR POINTER TABLE 


005237 
000411 


012737 
012737 


013746 


000002 
012737 
012737 


012737 


005046 
012746 
000002 


001444 
010422 
010422 


010410 
001444 


001100 
001140 
001100 
014300 
000 


177570 
177777 


001726 
000176 
000174 
000004 
001176 
000200 


001212 


002000 
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000004 
001140 
001142 
177224 


001211 
001140 


RESTRT: 
TESTER: 


BEGIN: 


BEGIN: 


RSTRT: 
. SBTTL 


7; CLEAR 


MOV 
nigtaiom A FEW VECTORS 


Ht: 3 
;;SIZE FOR "A HARDWARE SWITCH REGISTER. 
;;EQUAL TO A ‘=1"', 


64$: 
65$: 
66$: 


67$: 


= 
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INC 
BR 
INC 
BR 
CLR 


CLR 
CLR 


RESET 


; INDICATE RESTART 
; INDICATE TESTER MODE 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 


MOV 
CLR 
CMP 
BNE 


ASCMTAG,R6 szsFIRST LOCATION TO BE CLEARED 
(R6) + :; CLEAR MEMORY LOCATION 
#SWR,R6 ; ;DONE? 

-6 ;LOOP BACK IF 


NO 
"SETUP THE STACK POINTER 


MSSCOPE ,AMIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
#340, aM#IOTVEC+2 ;:LEVEL 7 

#SERROR ,@MEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340, aWEMTVEC+2 ;:LEVEL 7 

#STRAP ,@ATRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC+2;LEVEL 7 

#SPWRDN,@APWRVEC ; ;POWER FAILURE VECTOR 

#340 ,aMPWRVEC+2 ;;LEVEL 7 

SENDCT,SEOPCT  ;;SETUP END-OF-PROGRAM COUNTER 
STIMES ;zINITIALIZE NUMBER OF ITERATIONS 


#STACK, SP 


SESCAPE +3 CLEAR THE ESCAPE ON ERROR ADDRESS 
#1, SERMAX ;ALLOW ONE ERROR PER TEST 
#.,$LPADR ;3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 


TUP THE ERROR LOOP ADDRESS 
IF NOT FOUND OR IT IS 
SETUP FOR A SOFTWARE SWITCH REGISTER. 
@WERRVEC,-(SP) ;;SAVE ERROR VECTOR 
#64$,QMERRVEC ;;SET UP ERROR VECTOR 


#DSWR, SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 

#-1 ,ASWR :zTRY TO REFERENCE HARDWARE SWR 

66$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 


;;AND THE HARDWARE SWR IS NOT = -1 


65$ : ;BRANCH IF NO TIMEOUT 
#65$, (SP) 3;SET UP FOR TRAP RETURN 
A#SWREG, SWR ;;POINT TO SOFTWARE SWR 
#DISPREG,DISPLAY 
(SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
$PASS ::CLEAR PASS COUNT 
MAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
7$ >; YES,USE NON-APT SWITCH 
H#ESWREG, SWR ::;NO,USE APT SWITCH REGISTER 
- (SP) :LOWER PRIORITY 
#1$,-(SP) 


SEQ 0018 
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INITIALIZE THE COMMON T SEQ 0019 
sOVERLAY THE FIRST 4 LOC. OF THE STYPE ROUTINE TO ENABLE LEVEL O INTERRUPT 
012737 005046 015640 i$: MOV #5046,STYPE -(SP) 
012737 012746 015642 MOV #12746, STYPE+2 “MOV #STYPE+12, -(SP) 
012737 015652 015644 MOV #STYPE4+12, $TYPE +4 : 
012737 000002 015646 MOV MRTI,STYPE+6 sRTI 
004737 016170 JSR PC ,STKINT ; INIT THE KEYBOARD INTR. HANDLER 
005037 010404 2 BADUNT sRESET BAD INDICATOR 
000137 002114 INIT1 
» SUBROUTINE TO LOAD DEVICE ADDRESSES LOCATIONS 
013700 001244 LDTRAP: MOV SBASE ,RO ;GET BASE ADDRESS 
010037 001446 MOV RO,DACO s;LOAD X ADDRESS 
010037 001450 MOV RO,DAC1 = LOAD Y ADDRESS 
010037 001452 MOV RO,DAC2 ;LOAD DAC #2 
010037 001454 MOV RO,DAC3 sLOAD DAC #3 
062737 000002 001450 ADD #2,DAC1 
062737 000004 001452 ADD #4 ,DAC2 
062737 000006 001454 ADD #6,DAC3 
000207 RTS PC sEXIT 
004737 002044 INIT1: JSR PC,LDTRAP sFIX BUS ADDRESSES 
005737 010410 TST TEMP sTEST IF START OR RESTART 
001073 BNE MTEST1 “RESTART 
005737 010422 1$: TST WFTST :TEST IF ON TESTER 
001406 BEQ 2$ “BR IF NOT 
104401 TYPE 
011647 MSGSW : TELL OPERATOR ABOUT TESTER SWITCHES 
104401 011723 TYPE, FRONT > INFORM THE OPEATOR ABOUT TESTER SWITCHES 
004737 010020 JSR PC,CSPACE ;WAIT FOR OPERATOR 


2$: 
Tyee TYPE PROGRAM NAME 
: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 


005227 177777 INC 4-1 ;sFIRST TIME? 
001050 BNE a8 3 CH IF NO 
022737 006522 000042 CMP #SENDAD , #42 3sACT-11? 
001444 BEQ 64$ : sBRANCH IF YES 
104401 002234 TYPE ,65$ ; TYPE ASCIZ STRING 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
005737 000042 TST a42 ;;ARE WE RUNNING UNDER XXDP/ACT? 
001012 BNE 66$ ; BRANCH IF YES 
123727 001210 000001 CMPB SENV 41 + sARE WE RUNNING UNDER APT? 
001406 BEQ 6 oe CH IF YES 
023727 001140 000176 CMP SWR ,ASWREG :2SOFTWARE SWITCH REG SELECTED? 
001005 BNE 67$ 2 CH IF NO 
104407 GTSWR ;;GET SOFT-SWR SETTINGS 
000403 BR 67$ 
112737 000001 001134 oe: MOVB #1 ,$AUTOB 3;SET AUTO-MODE INDICATOR 
000421 BR 64$ 3:GET OVER THE ASCIZ 
a -ASCIZ <CRLF>#CVMND-A MNCAA (D/A) DIAGNOSTiCA<CRLF> 
005737 001134 TST SAUTOB ;TEST IF UNDER A MONITOR 
001402 BEQ MTEST ;BR IF NO 


;BR | 
000137 002600 JMP LOGIC ;RUN LOGIC TEST 


H 2 
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CVMNDA.P11 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0020 
195 ;.SBTTL KEYBOARD COMMAND DECODER 
196 002310 104401 013137 MTEST: TYPE, PRIMEO ;TELL THE OPER. THE TEST AVAIL. 
197 002314 000005 MTEST1: RESET 
198 002316 052777 000100 176620 BIS #B81T6,a$TKS ;REENABLE KRB INTR. 
199 002324 005037 001176 CLR $SPASS ;CLEAR PASS COUNTER 
200 002330 005037 001112 CLR SERTTL ;CLEAR TOTAL ERROR COUNT 
201 002334 005037 001444 CLR EVER ;CLEAR INITIAL UNIT TYPEOUT 
202 002340 004737 002044 JSR PC,LDTRAP ;ENSURE BASE ADDRESS IS LOADED 
203 002344 104401 013516 TYPE, DOT sASK THE OPERATOR FOR TEST CHAR. 
204 002350 104412 RDLIN ;GET OPER. INPUT 
205 002352 013637 002534 MOV @(SP)+,RUNIT ;SAVE THE FIRST CHARACTER 
206 002356 142737 000040 002534 BICB #40,RUNIT :MASK OFF LOWER CASE BIT 
207 002364 122737 000102 002534 CMPB #°B,RUNIT sTEST IF ‘B" 
208 002372 001002 BNE 1$ :BR IF NOT 
209 002374 000137 002540 JMP BASEXC s CHANGE BASE ADDRESS 
210 002400 122737 000104 002534 1%: CMPB #'D,RUNIT s TEST ee 
211 002406 001002 BNE 2$ IF NOT 
212 002410 000137 010314 JMP DYNCAL “DO DYNAMIC CALIB. 
213 002414 122737 000110 002534 2%: CMPB #°H,RUNIT sTEST IF ‘H"’ 
214 002422 001002 BNE 3$ :BR IF NOT 
215 002424 000137 002510 JMP MTEST sRETYPE THE LIST 
216 002430 122737 000114 002534 3%: CMPB #°L,RUNIT svEST IF \ 
217 002436 001002 BNE 4$ :BR IF NOT 
218 002440 000137 002600 JMP LOGIC :D0 mit TEST 
219 002444 122737 000117 002534 4$: CMPB #°O,RUNIT : TEST as 
220 002452 001002 BNE 5$ ;BR IF ‘NOT 
221 002454 000137 007630 JMP LAMPS :DO LAMP OUTPUT PATTERN 
222 002460 122737 000122 002534 5$: CMPB #°R,RUNIT :TEST IF ‘R'' 
2235 002466 001002 BNE 6$ ;BR IF NOT 
224 002470 0001357 010102 JMP FULRMP ;DO0 RAMP TEST 
225 002474 122737 0001235 002534 6$: CMPB #°S,RUNIT sTEST IF *'S"’ 
226 002502 001002 BNE 7$ ;BR IF NOT 
227 002504 000137 010252 JMP STATIC ;D0 STATIC CALIB. 
228 002510 122737 000107 002534 /7$: CMPB #'G,RUNIT sTEST IF ‘G" 
229 002516 001002 BNE 77$ ;BR IF NOT 
230 002520 104407 GTSWR :GET SWITCHES 
231 002522 000674 BR MTEST1 ;RETYPE THE DOT 
232 002524 104401 001164 77$: TYPE, $QUES ;OPER. HAS FAT FINGERS 
233 002530 000137 002314 JMP MTEST1 ;RETYPE ‘DOT’' 
234 002534 000000 RUNIT: 0 ;OPERATOR INPUT CHARACTER 
235 002536 000000 UNITBD: Q >BAD UNIT NUMBER 
236 -SBTTL SUBROUTINE TO CHANGE BASE ADDRESS OF DEVICE 
237 002540 104401 015606 BASEXC: TYPE, PRIMBA TELL OPERATOR THE HEADER 
238 002544 013746 001244 MOV SBASE , - (SP) “PUSH ON STACK 
239 002550 104402 TYPOC TELL OPERATOR CURRENT VALUE 
240 002552 104401 013643 TYPE, PRIMBB “FINISH THE MESSAGE 
241 002556 104413 RDOCT ;GET OPER. INPUT 
242 002560 012600 MOV (SP)+,RO ;GET # 
243 002562 001404 BEQ 1$ ;BR IF C/R 
244 002564 0100357 001244 MOV RO, SBASE ;LOAD NEW VALUE 
245 002570 004737 002044 JSR PC,LDTRAP ;RELOAD ADDRESS VALUES 


246 002574 000137 002314 1$: JMP MTEST1 sRETYPE THE DOT 
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CVMND-A MNCAA DIAGNOSTIC MACY11 27(654) 
CVMNDA.P11 DETERMINE THE NUMBER OF MNCDA ON THIS SYSTEM SEQ 0021 
248 .-SBTTL DETERMINE THE NUMBER OF MNCDA ON THIS SYSTEM 
249 002600 013737 001244 001126 LOGIC: MOV SBASE , SBDDAT ;GET THE BASE ADDRESS 
250 002 005037 010406 CLR 
251 002612 005037 001202 CLR SUNIT ;CLEAR UNIT # 
252 002616 012737 002672 000004 MOV #2$,ERRVEC = LOAD TRAP RETURN 
253 002624 005777 176276 1$: TST @$BDDAT ;TEST IF ADDR EXISTS 
254 002630 063737 001442 001126 ADD VADDR , $BDDAT : UPDATE THE BUS ADDRESS 
255 002636 005237 001202 INC SUNIT “UPDATE UNIT COUNT 
256 002642 005737 001210 TST SENV ;TEST IF ‘DO NOT SIZE’ 
257 264 0042 BMI 3$ “BR IF NO aAS toon 
258 002650 032777 010000 176262 BIT #SW12,aSWR sTEST IF SWi2 IS S 
259 002656 001017 BNE 3$ “BR AND DONOT Size. } OF UNITS 
260 2 022737 000010 001202 CMP #8. ,SUNIT ;TEST IF MAX. NUMBER 
261 2 001356 BNE 1$ ;BR IF NOT 
262 002670 000412 BR 3$ ;7BR IF MAX. 
263 002672 022626 2$: CMP (SP)+, (SP) + = CLEAN THE STACK 
264 002674 5737 001202 TST SUNIT TEST IF ANY EXIST 
265 27 1 BNE 3$ ;BR IF SOME ARE THERE 
266 002702 005737 000042 TST a42 ;TEST IF XXDP CHAIN MODE 
267 27 001003 BNE 3$ “BR IF YES 
268 002710 104001 ERROR 1 “BASE ADDRESS CAUSED AN BUS TRAP 
269 002712 000137 JMP SEOP :GO TO END OF PASS 
270 002716 005737 001444 3$: TST EVER ;TEST IF # HAS BEEN REPORTED 
271 002722 100426 BMI “BR IF IT HAS 
272 002724 005737 010422 TST WFTST - TEST IF TESTER MODE 
273 27 001014 BNE ;BR IF TESTER 
274 002732 104401 TYPE 
275 27 012046 FOUND 1 ;TELL OPERATOR THE # OF MNCDA'S 
276 002 013746 001202 MOV SUNIT,~(SP) 
277 002742 104405 TYPDS ;TELL OPER. THE DEC. VALUE 
278 002744 104401 TYPE 
279 002746 012072 F OUND2 
280 002750 005737 001202 TST SUNIT ;ANY UNITS 
281 002754 001002 BNE 6$ ;BR IF SOME 
282 002756 137 JMP SEOP ;REPORT EOP 
283 002762 013737 001202 001444 6$: MOV SUNIT, EVER ;SAVE THE # OF MNCDA'S FOR LATER 
284 002770 052737 001444 BIS #B1T15 EVER ;SET "REPORTED # FLAG’ 
285 002776 05 BR 5$ 
286 123737 001444 001202 4$: C EVER, SUNIT TEST IF ANY HAVE GONE AWAY 
287 001401 BEQ 5$ 7;BR IF ALL ARE STILL HERE 
288 003010 104017 ERROR 17 s EXISTING UNIT FAILED TO RESPOND NOW 
289 003012 005037 001202 5$: CLR SUNIT sRESET UNIT POINTER 
290 003016 005037 001200 CLR SDEVCT *MAKE APT HAPPY 
291 003022 737 002044 JSR PC,LDTRAP ;LOAD BUS ADDRESSES 
292 003026 012737 1 010406 MOV #B1T0 .MASKNM LOAD MASK NUMBER IF ERROR 
O99 SERRA E REE ER ERE 
(3) ;*TEST 1 VERIFY CORRECT I.D. VALUES 
(3) SRA RARER EERE REE RER ERE REAR ARAERRERE ERE EREREEEERRERERE 
(2) 003034 TST1: SCOPE 
300 003036 005737 010422 TST WFTST ; CHECK IF ON TESTER 
301 003042 001420 BEQ TST2 ->;BR IF NOT ON TESTER 
302 3044 005077 176406 CLR aTSTR2 ENSURE TESTER MODE 
303 003050 012737 000100 001124 MOV #100, $GDDAT ;LOAD EXPECTED I.D. VALUE 
304 003056 017737 176376 001126 MOV @DRIN, $SBDDAT *READ I.D. LINES 


J @ 
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CVMNDA .P11 VERIFY CORRECT I.D. VALUES SEQ 0022 
305 003064 042737 177417 001126 BIC #177417,$BDDAT ;MASK OUT OTHER BITS 
306 003072 023737 001124 001126 CMP S$GDDAT,SBDDAT_ ; ARE 
307 003100 001401 BEQ TST2 :;BR IF SAME 
308 003102 104015 ERROR 15 : INCORRECT I.D. VALUE 


2 
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CVMNDA.P11 T2 TEST THAT THE MNCDA RESPONDS TO THE C SEQ 0023 
310 SRR EERE ERE ER REE 
(3)  STEST 2 TEST THAT THE MNCDA RESPONDS TO THE CPU 
(3) © eR REE EERE 
(2) 003104 000004 réT2: SCOPE 
311 003106 012737 003136 000004 MOV #1$,ERRVEC sLOAD BUS TRAP RETURN 
312 003114 005777 176326 TST aDACO TEST DAC #0 
313 003120 005777 176324 TST @DAC1 sTEST DAC #1 
314 003124 005777 176322 TST aDAC2 > TEST DAC #2 
315 003130 005777 176320 TST aDAC3 ;TEST DAC #3 
316 003134 000407 BR 2$ >;BR AND RESTORE LOC. 4 
317 003136 022626 1$: CMP (SP)+, (SP)+ = CLEAN THE STACK 
318 003140 104001 ERROR 1 :ERROR, BUS TIMEOUT WHEN ADDRESSING THE MNCDA 
319 003142 012737 000006 000004 MOV #6, ERRVEC ;LOAD LOC 4 
320 003150 000137 005334 JMP REMAIN :TEST IF ANY OTHER'S 
321 003154 012737 000006 000004 238: MOV #6, ERRVEC ;LOAD RETURN 
322 SERRE REE EERE EERE REE RREEE KE 
(3) s*TEST 3 TEST THAT DACO REGISTER CAN BE CLEARED 
(3) SRR RARER EERE ARE RE EEE RERARER EEE RERREERE EERE RE REE 
(2) 003162 000004 TST3: SCOPE 
323 003164 005037 001124 CLR SGDDAT ;LOAD EXPECTED 
324 003170 013777 001124 176250 MOV SGDDAT ,a@DACO ;LOAD REG 
325 003176 017737 176244 001126 MOV aDACO, $BDDAT =READ REG 
326 003204 023737 001124 001126 CMP SGDDAT, SBDDAT ; COMPARE 
327 003212 001401 BEQ TST4 77BR IF EQUAL 
$59 003214 104002 ERROR 2 sERROR, DACO REGISTER NOT = 0 
330 RARER REE 
(3) TRTEST 4 TEST THAT DACO REGISTER CAN BE LOADED WITH #7777 
(3) + RRRERARE ERE EERE ERR EERE RRR 
(2) 003216 000004 TST4: SCOPE 
331 003220 012737 007777 001124 MOV #7777 ,SGDDAT ;LOAD EXPECTED 
332 003226 013777 001124 176212 MOV SGDDAT , @DACO ;LOAD REG 
333 003234 017737 176206 001126 MOV aDACo, $BDDAT READ REG 
334 003242 023737 001124 001126 CMP SGDDAT , $BDDAT ; COMPARE 
335 003250 001401 BEQ TST5 77BR IF EQUAL 
$39 003252 104002 ERROR 2 sERROR, DACO REGISTER NOT = 7777 
338 RARER EEE EERE 
(3) : TEST 5 TEST THAT DACO REGISTER CAN HOLD A FLOATING 1 PATTERN 
(3) RARER RARER 
(2) 003254 000004 1ST: SCOPE 
(1) 003256 012737 000100 001160 MOV #100, STIMES 3;D0 100 ITERATIONS 
339 003264 012737 001124 MOV #B1T11,$GDDAT sLOAD EXPECTED 
340 003272 013777 001124 176146 1$: MOV SGDDAT ,@DACO LOAD DACO REGISTER 
341 3 017737 176142 001126 MOV @DAC0, $BDDAT READ THE REGISTER 
342 003306 023737 001124 001126 CMP SGDDAT, SBDDAT = COMPARE THE DATA 
343 003314 001401 BEQ 2$ ::BR IF SAME 
3%44 003316 104002 ERROR 2 sERROR, DACO ee FAILED TO HOLD A FLOATING 
345 003320 006237 001124 2$: ASR $SGDDAT HANGE THE 


3¢ DAT 
346 003324 001362 BNE 1$ :BR AND TEST MORE DATA 


CVMND-A MNCAA 
CVMNDA .P11 


DIAGNOSTIC 
TEST THAT DACO CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 


T6 


MACY11 27(654) 


175740 


175720 
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MOR RRARBAAASALALALALLARSLESESERS SEER ERASER RARER RR RAR RRA RAR ASA A RSA ASS SS 


“*TEST 6 TEST THAT DACO CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 
5 RARER AREA AREER ERAEEEREREAREERKRAAARRRAERARRRERRRRERRE REED 
TST6: SCOPE 
MOV #100, $TIMES ::D0 100 ITERATIONS 
MOV #B1T11,$GDDAT :LOAD EXPECTED 
MOV SGDDAT . aDACO *LOAD DACO 
1$: MOV @DAC0, $8DDAT “READ THE REGISTER 
CMP SGDDAT , $BDDAT “COMPARE THE GOOD TO DACO 
BEQ 2$ ::BR IF THE SAME 
V @DACO, SBDDAT :SAVE FOR TYPEOUT 
ERROR 2 “DACO FAILED TO HOLD A FLOATING 1 PATTERN 
MOV $GDDAT , @DACO =LOAD DACO AGAIN 
2$: ASR aDACO ;CHANGE THE DATA 
ASR $GDDAT HANGE THE EXPECTED 
BNE 1$ “BR IF MORE DA 
;  USRRRAAARRE RRR E EERE EERE EERE RRR REE EERE RRR EERE 
“*TEST 7 TEST THE ‘‘SUB’’ INSTRUCTION WORKS ON DACO 
—REAEAEAKAAAAEAKARAAAARAEAAAKRAAAARAEAEAAARAAARAARAARAAAAAEKRAKRARAEEEAEEE 
S17: SCOPE 
MOV #10, $TIMES ::D0 10 ITERATIONS 
MOV #7777 ,SGDDAT LOAD EXPECTED 
MOV SGDDAT ,aDACO OAD DACO 
1$: SUB #1, $GDDAT * SUB A VALUE 
SUB #1 ,aDACO >FROM EXPECTED AND DACO 
MOV @DACO, $BDDAT “READ THE REGISTER 
CMP SGDDAT , $8DDAT I > COMPARE 
BEQ € ::BR IF SAME 
ERROR 2 -THE SUB INSTRUCTION FAILED ON DACO 
MOV SGDDAT , a@DACO “LOAD THE REGISTER AGAIN 
2$: TST $GDDAT -TEST FOR MORE DATA 
1$ ::BR IF MORE DATA 


5 LEAR AAR EERARAERAEAERRERRAAERREERRRARRERRERERAREREEK 


:*TEST 10 TEST THAT DAC] REGISTER “AN BE CLEARED 
J TRAE REKREAAERAAEREAARERRARAERAKRRAEREREEERERERRERERRE 
TST10: SCOPE 

CLR SGDDAT : LOAD EXPECTED 

MOV SGDDAT ,@DAC1 sLOAD DAC1 

MOV @DAC 1, $BDDAT “READ REG 

CMP SGDDAT, SBDDAT ; COMPARE 

BEQ TST11 7 7BR IF EQUAL 

ERROR 3 sERROR, DAC1 REGISTER NOT = 0 


fF AAA REREEEEEEEEERAEKREREEEREAKEERERRERAERKRERRARREERKEE ER 


S*TEST 11 TEST THAT DAC #1 REGISTER CAN BE LOADED WITH #7777 
5 LARA EEAEEEEEREAAAERERERAREREEERRRERERRRERAEAERREERREE 
TST11: SCOPE 
MOV #7777 .SGDDAT ;LOAD EXPECTED 
MOV SGDDAT ,aDAC1 :LOAD DAC #1 
MOV @DAC1, $BDDAT ;READ REG 
CMP $GDDAT , SBDDAT : COMPARE 
BEQ TST12 ;;BR IF EQUAL 
ERROR 3 ;ERROR, DAC1 REGISTER NOT = 7777 


CVMND-A MNCAA 
CVMNDA .P11 


TIC MACY11 27(654) GE 11 
TEST THAT DAC #1 REGISTER CAN HOLD A FLOATING 1 PATTERN 


901126 


001126 
175510 


175410 


SEQ 0025 
5 RARER AREEEEERKEKREERRREEREREEEREREREREREREERRERERE EE 
**eTEST 12 TEST THAT DAC #1 REGISTER CAN HOLD A FLOATING 1 PATTERN 
5 LRA ERE REREEEEEEREKREE AKER EEREEKEEERRRERRERKREREEE 
TST12: SCOPE 
MOV #100, $TIMES ::DO 100 ITERATIONS 
MOV #81T11,$GDDAT sLOAD EXPECTED 
1$: MOV SGDDAT,aDAC1 “LOAD THE REGISTER 
MOV @DAC1,$8DDAT “READ THE REGISTER 
CMP SGDDAT , SBDDAT =COMPARE THE DATA 
BEQ 2$ ::BR IF DATA IS SAME 
ERROR 3 sERROR, DAC #1 REGISTER FAILED TO HOLD A FLOATIN 
2$: ASR SGDDAT “CHANGE THE DATA 
1$ “BR AND TEST MORE DATA 
SAA A IEE I NININISIEIEIOIIIIIIIDIOIOIOI OI IIIT IOI II TTT 
STEST 13 TEST THAT DAC1 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 
ORR AAAAAALALALALABALALAALAALEALALAAAAMLARLAAAAAAEARAAASASAL ASSESS SC 
1ST13: SCOPE 
MOV #100, $TIMES ::D0 100 ITERATIONS 
MOV #81T11,$GDDAT :LOAD EXPECTED 
MOV SGDDAT,a@DAC1 *LOAD DACT 
1$: MOV @DAC1,$BDDAT “READ THE REGISTER 
CMP SGDDAT , SBDDAT =COMPARE THE GOOD TO DAC1 
BEQ 2$ BR IF THE SAME 
MOV QDAC1,$BDDAT :SAVE FOR TYPEOUT 
ERROR 3 *DAC1 FAILED TO HOLD A FLOATING 1 PATTERN 
MOV SGDDAT,@DAC1 *LOAD DAC1 AGAIN 
2$: ASR @DAC1 *CHANGE THE DATA 
ASR SGDDAT *CHANGE THE EXPECTED 
BNE 1$ “BR IF MORE DATA 
SSIES IIDC NII I I IIDC IIUIOIOIIITIITIOOIIOI IIIT IIE 
TEST 14 TEST THE ‘‘SUB’’ INSTRUCTION WORKS ON DAC1 
SAREE EREKEREKEKEKEKEEKEKEEEREEEKEEKRAEERAEREEERERERKEEKER 
S114: SCOPE 
MOV #10, $TIMES ::DO 10 ITERATIONS 
MOV #7777, $GDDAT *LOAD EXPECTED 
MOV SGDDAT,aDAC1 *LOAD DACT 
1$: SUB #1,$GDDAT *SUB A VALUE 
SUB #1,aDAC1 >FROM EXPECTED AND DAC1 
MOV @DAC1, $B8DDAT “READ THE REGISTER 
CMP SGDDAT , SBDDATI * COMPARE 
BEQ $ ::BR IF SAME 
ERROR 3 : THE SUB INSTRUCTION FAILED ON DAC1 
MOV SGDDAT,@DAC1 “LOAD THE REGISTER AGAIN 
2$: TST SGDDAT TEST FOR MORE DAT 
BNE 1$ ::BR IF MORE DATA 


M 2 
19-SEP-78 08:58 PA 


CVMND~-A_ MNCAA 
CVMNDA.P11 


(1) 


Ee te Tt, Tm ti, hi fa a, a 
3 om SS SS TOO Ot 
wee ee ee ee ee ee ee ee ee 
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TIC 
TEST THAT THE DAC #2 REGISTER CAN BE CLEARED 


175172 


001124 
175154 
001124 


175370 


001124 


175160 


5 RERARERERERERERRERERERREEEREKEEAEEEREKERERERRRERRERERRERRRERERERE ES 


 STEST 15 TEST THAT THE DAC #2 REGISTER CAN BE CLEARED 
TORR RERALAEBELELLEALAEAALLACALAAAALAAEALAALALEAARAAAEER RRR R RARER AAD DS SD OS 
+ST15: SCOPE 
CLR SGDDAT ; LOAD Anti 
MOV SGDDAT ,aDAC2 ;LOAD R 
MOV @DAC2, $BDDAT “READ REG 
CMP SGDDAT , SBDDAT * COMPARE 
BEQ TST16 ;;BR IF EQUAL 
ERROR 4 sERROR, DAC #2 REGISTER NOT = 


FLARE RE REREREEEREEREREREREREREEEEKEEREREEERERERREKERERRREREEE EH 


TEST 16 


SERRA ARRERERERREREREEREREREREEEKEREEREEKEEREREKRREREREKRREKEERREREEKE 


+ST16: SCOPE 
MOV #7777 ,.SGDDAT :LOAD EXPECTED 
MOV SGDDAT ,a@DAC2 ;LOAD REG 
MOV @DAC2, $BDDAT *READ REG 
CMP S$GDDAT , SBDDAT : COMPARE 
BEQ TST17 :;BR IF EQUAL 
ERROR 4 sERROR, DAC #2 REGISTER NOT = 
SEEKER EREREEEEEREEEEKEKKEEKKEEREERRERREREEERRERREREREKE 
: TEST 17 TEST THAT THE DAC #2 REGISTER CAN HOLD A FLOATING 1 PATTERN 
PO RAAEEAEALALAELAAELLALCLACACZAEALALAAAAAEAASLALEAAARERA SERRA EASED ASD SS SS 
+ST17: SCOPE 
MOV «#100, $TIMES ::D0 100 ILTERATIONS 
MOV #B1T11,$GDDAT ;LOAD EXPECTED 
1$: MOV SGDDAT ,a@DAC2 ;LOAD DAC2 REGISTER 
MOV @DAC2, $BDDAT ;READ THE REGISTER 
CMP SGDDAT, SBDDAT > COMPARE THE DATA 
BEQ 2$ ::BR IF SAME 
ERROR 4 sERROR, DAC #2 REGISTER FAILED TO HOLD A FLOATIN 
2$: ASR SGDDAT s CHANGE THE DATA 
BNE 1$ :BR AND TEST MORE DATA 
SRE EEERERREKEEKEEEREREKEEEEEREERERKEREREEREEEEREK 
TEST 20 TEST THAT DAC2 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 
MOR EEAEEELALLCALLCALALAEAEACALCAEEALASLALACALACARASAELAERASESESAAALASL SAS ARS SDS SS SD 
+5120: SCOPE 
MOV #100, STIMES 7:D0 100 ITERATIONS 
MOV #B1T11,$GDDAT sLOAD EXPECTED 
MOV SGDDAT ,aDAC2 sLOAD DAC2 
1$: MOV @aDAC2, $BDDAT :READ THE REGISTER 
CMP SGDDAT , SBDDAT :COMPARE THE GOOD TO DAC2 
BEQ 2$ 37BR IF THE SAME 
V @DAC2, SBDDAT sSAVE FOR TYPEOUT 
ERROR 4 *DAC2 FAILED TO HOLD A FLOATING 1 PATTERN 
MOV SGDDAT ,a@DAC2 = LOAD DAC2 AGAIN 
2$: ASR aDAC2 : CHANGE THE DATA 
ASR SGDDAT > CHANGE THE EXPECTED 
BNE 1$ ;BR IF MORE DATA 


TEST THAT THE DAC #2 REGISTER CAN BE LOADED WITH #777 


CVMND-A MNCAA 
CVMNDA .P11 


DIAGNOSTIC 
T21 


001124 


001124 


001124 


001124 


001124 


001160 


001126 


175060 


175040 
001126 
001126 
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TST21: 


1$: 


2$: 


3 
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TEST THE ‘‘SUB'’ INSTRUCTION WORKS ON DAC2 


MRBERRBASBASLASZALASLALAS£LARSSASEASASASERSALAR RASA RA RASA RRA ARAR ASA SASS SS 


TEST 21 


TIES IEISISISISSIEISISISIOIIISIOIISIDIOISIDIDIOISIDIOIIOIDIOIIOIDDI SSID IOI ISI 


SCOPE 


TEST THE ‘SUB’ INSTRUCTION WORKS ON DAC2 


#10,STIMES ;;D0 10 ITERATIONS 


#7777, $GDDAT :LOAD EXPECTED 

SGDDAT,aDAC2 *LOAD DAC2 

#1, $GDDAT *SUB A VALUE 

#1,aDAC2 =FROM EXPECTED AND DAC2 

QDAC2, $BDDAT “READ THE REGISTER 

SGDDAT, $BDDATI : COMPARE 

2$ :;BR IF SAME 

4 >THE SUB INSTRUCTION FAILED ON DAC2 
$GDDAT ,a@DAC2 =LOAD THE REGISTER AGAIN 


$GDDAT : TEST FOR MORE DATA 
1$ ::BR IF MORE DATA 


5 RRR EEE EERE REEKRREREREEERERRERKERR ERE 


“*TEST 22 


SL AAA REE EEEEKKEERKEEEKEEERKEREERRREERAEREERERRRKRKREER RE 


TST22: 


s*TEST 23 


FLARE EERE 


TST23: 


SCOPE 


TEST THAT THE DAC #3 REGISTER CAN BE CLEARED 


SGDDAT ;LOAD EXPECTED 

SGDDAT ,aDAC3 ;LOAD REG 

@DAC3,$BDDAT ;READ REG 

SGDDAT , SBDDAT ; COMPARE 

TST23 :;BR IF EQUAL 

5 sERROR, DAC #3 REGISTER NOT = 0 


'MARBAESAALALLESLASASELSSSESE SES ESE AR SERA SAAS A RRR ARRAS RAR SRLS SSS DS | 


TEST THAT THE DAC #3 REGISTER CAN BE LOADED WITH 47777 


#7777 ,SGDDAT sLOAD EXPECTED 

SGDDAT ,aDAC3 ;LOAD REG 

@DAC3,$BDDAT sREAD REG 

S$GDDAT , SBDDAT : COMPARE 

TST24 :;BR IF EQUAL 

5 sERROR, DAC #3 REGISTER NOT = 7777 


SRA EEEEKKEEKKEKEEREREEKEREERAREERERRERKEREREREEKEEE 


 RTEST oo 


MARRS EBESASASLALALLAELESLESASSLAS ESA SA SER AARARAA SARS RRR RRR RAR ASSESS SS | 


18124: 


1$: 


2$: 


SCOPE 


TEST THAT THE DAC #35 REGISTER CAN HOLD A FLOATING 1 PATTERN 


#100, $TIMES ::D0 100 ITERATIONS 

#B1T11,$GDDAT sLOAD EXPECTED 

SGDDAT , @DAC3 sLOAD DAC #3 REGISTER 

aDAC 3, $BDDAT :READ THE REGISTER 

SGDDAT , $BDDAT ; COMPARE THE DATA 

2$ ::;BR IF SAME 

5 :ERROR, DAC #3 REGISTER FAILED TO HOLD A FLOATIN 
SGDDAT : CHANGE THE DATA 

1$ :BR AND TEST MORE DATA 


CVMND-A MNCAA 
CVMNDA .P11 


DIAGNOSTIC 
TEST THAT DAC3 


T25 


001124 
001124 


MACY11 27(654) 
CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 


001160 
001126 
001126 
001126 
174630 


001160 


174530 
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SERRE REE EREEREREEREREERRRERRERERERERERERERERRE ERED 


TEST 25 TEST THAT DAC3 CAN HOLD A FLOATING 1 PATTERN (DYNAMICLY) 
TIAA AIIOOIIOUOISISIOISISIOISISISIISIIISIOISIIOIOIISIOIOIIIOIOIIOIDITIOIOII I TOIT TTT TIT 
TST25: SCOPE 
MOV #100,$TIMES ;:DO0 100 ITERATIONS 
MOV #B1T11,$GDDAT ;LOAD EXPECTED 
MOV SGDDAT , @DAC3 :LOAD DAC3 
1$: MOV @DAC3,$BDDAT sREAD THE REGISTER 
CMP $SGDDAT , SBDDAT ; COMPARE THE GOOD TO DAC3 
BEQ 2$ :;BR IF THE SAME 
V @DAC3,$BDDAT ;SAVE FOR TYPEOUT 
ERROR 5 ;DAC3 FAILED TO HOLD A FLOATING 1 PATTERN 
MOV SGDDAT , aDAC3 ;LOAD DAC3 AGAIN 
2$: ASR aDAC3 7 CHANGE THE DATA 
ASR SGDDAT ;CHANGE THE EXPECTED 


BNE 1$ ;BR IF MORE DATA 


SA EE IOI I UII III IOIOIIIIOIIOIICIIOIOIIIIIOI III ITO ITAA TT 


STEST 26 TEST THE ‘’SUB'' INSTRUCTION WORKS ON DAC3 
SIAC IIOIOCICIOISICIIOIOIOIIOIIOI IOI TOT I TOTTI TTA 
TST26: SCOPE 

MOV #10. $TIMES ::DO 10 ITERATIONS 
MOV #7777, $GDDAT sLOAD EXPECTED 
MOV $GDDAT ,aDAC3 =LOAD DAC3 
1$: SUB #1, $GDDAT *SUB A VALUE 
SUB #1 ,aDAC3 >FROM EXPECTED AND DAC3 
MOV QDAC3, $BDDAT “READ THE REGISTER 
CMP SGDDAT, $BDDATI : COMPARE 
BEQ 2$ ::BR IF SAME 
ERROR 5 :THE SUB INSTRUCTION FAILED ON DAC3 
MOV $GDDAT, aDAC3 “LOAD THE REGISTER AGAIN 
2$: TST $GDDAT -TEST FOR MORE DATA 
BNE 1$ ::BR IF MORE DATA 


SEQ 0028 


CVMND-A MNCAA 
CVMNDA .P11 


DIAGNOSTIC 
TEST THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA 


Te? 


012737 
017737 
023737 
001401 
104004 


012737 


0011117 
002222 


002222 
174424 
001124 


004444 
174400 
001124 


007777 
174354 
001124 


174504 
174500 
174474 
174470 
001124 
001126 
001126 


001124 
001126 
001126 


001124 
001126 
001126 


001124 
001126 
001126 


> 3 
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SEERA RARAREE REAR ERRERAEEE RETR RREERERERERRREEERERRERERRERREKEERERRR EEE 


“*TEST 27 


TST2?7: 


1$: 


2$: 


3$: 


SCOPE 


TEST THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA 


5 RRA RRR RREEREERRERRERERE EERE RE KARE EERRAERRERRERRRE REE 


#1111,a@DACO 
#2222 ,aDAC1 
#4444 ,aDAC2 
#7777 ,aDAC3 
#1111,$GDDAT 
@DACO, $BDDAT 
ute paeaeeat 


2 


#2222, $GDDAT 
@DAC1, $BDDAT 
aes emmnenie: 


2 
3 
#4444 , SGDDAT 


@DAC2, $BDDAT 
> ees rciaramnni 


4 


#7777, $GDDAT 
@DAC3,$BDDAT 
SGDDAT , SBDDAT 
 poeae 


;LOAD DAC #0 
;LOAD DAC #1 
;LOAD DAC #2 
sLOAD DAC #3 
;LOAD EXPECTED 
;READ REG 

; COMPARE 
;;BR IF EQUAL 

sERROR, SELECTED DAC #0 IN ERROR 


;LOAD EXPECTED 
;READ REG 
; COMPARE 
:;BR IF EQUAL 
sERROR, SELECTED DAC 41 IN ERROR 


;LOAD EXPECTED 
;READ REG 
; COMPARE 
;7BR IF SAME 
sERROR, SELECTED DAC #2 IN ERROR 
;LOAD EXPECTED 
;READ REG 


; COMPARE 
SAME 
sERROR, SELECTED DAC #3 IN ERROR 


SEQ 0029 


CVMND-A MNCAA 
CVMNDA .P11 


30 


DIAGNOSTIC 
T TEST THAT RESET 


001176 
177777 
001124 


000100 
174274 
001124 


177777 
001124 


000100 


174232 
001124 


177777 
001124 


000100 
174170 


177777 
001124 
000001 


000100 
174126 


MACY11 27(654) 


174314 


173776 
001126 
001126 


174252 


173732 
001126 
001126 


174210 


173666 
001126 


174154 
010410 


173622 
001126 
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CLEARS DAC #0 REGISTER 


MEORARBRARASAAASLAALALALALARSLESAASARAAA SERA RARRA RAR RA RARAR RRA AR SSS S SD: 


“*TEST 30 


SERRE ERA EAEERE ERK RRERERRRERERAEER AREER 


TST30: 


TEST THAT RESET CLEARS DAC #0 REGISTER 


SPASS ; TEST PASS COUNTER 

REMAIN ;BYPASS RESET TEST AFTER 1ST PASS 
#-1 ,aDACO 

SGDDAT ;LOAD EXPECTED 

#BIT6,a$TKS ;RE-ENABLE TKS INTR. 

@DACO, SBDDAT ;READ REG 

SGDDAT , SBDDAT ; COMPARE 

TST31 ;;BR IF EQUAL 

2 ;ERROR, RESET FAILED TO CLEAR DAC #0 


5 TRAE AERA EEAEEEEREKERAREREREERREAAAEKERRRERERRERRREERR ERK 


=*TEST 31 


'WRRRRASBAASAAAA£LZLA£ SELESELLELESER ERE AERA RRA RRR RR RRR A RAR AR SA RASS SS S| 


1ST31: 


SCOPE 


TEST THAT RESET CLEARS DAC #1 REGISTER 


#-1,aDAC1 

SGDDAT ;LOAD EXPECTED 

#BIT6,a$TKS ;RE-ENABLE TKS INTR. 

aDAC1, $BDDAT ;READ REG 

SGDDAT . $8DDAT ; COMPARE 

TST32 ;;BR IF EQUAL 

3 sERROR, RESET FAILED TO CLEAR DAC 41 


SL AAR ARERR REE RKEREREREERERERRAEREEREREERER EER 


“TEST 32 


FL RARER RERERRAER EEE 


TST32: 


SCOPE 


TEST THAT RESET CLEARS DAC #2 REGISTER 


#-1 ,aDAC2 ;LOAD THE REGISTER 

$GDDAT ;CLEAR EXPECTED 

#B1T6,a$TKS ;RE-ENABLE TKS INTR. 

@DAC2, $BDDAT ;READ THE REGISTER 

TST33 ;;BR IF CLEARED 

4 ;ERROR, RESET FAILED TO CLEAR DAC #2 


5 TRAE REAR RAEREERREREREREERERE REE 


“*TEST 33 


'WEARBRASASAASALSAALZLALLEAARSRRSERRRRRRR SS ARAR RRR ARRAS RRA RR RRR SS SSS SD | 


TS133: 


SCOPE 


TEST THAT RESET CLEARS DAC #3 REGISTER 


#-1 ,aDACS ;LOAD THE REGISTER 

SGDDAT ;CLEAR THE EXPECTED 

#1, TEMP 

#B1T6,a$TKS ;RE-ENABLE TKS ENABLE 

@DAC3, $BDDAT ;READ THE REGISTER 

TST34 ;;BR IF CLEARED 

5 ERROR, RESET FAILED TO CLEAR DAC #3 


SEQ 0030 


CVMND~A MNCAA 
CVMNDA .P 11 


PIPIVIUIVIUIUIA - 
OD ed ad ad ad od = PL) 
NOUESWNAYw 


518 


005334 


“4AOo 


I 
3 


AGNOSTIC 
3 TEST THAT RESET 


003034 


000001 
010422 


0064 34 


MACY11 27(654) 


001160 
001444 
001446 
001450 


001452 
001454 


001160 


REMAIN: 


F 3 
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CLEARS DAC #3 REGISTER 


SEQ 0031 


RRA REKRRARRKKKEEKEEEREREEEEEEEEEEKEREEEERREEEKEH 


S*TEST 34 


18134: 


TST35: 


SCOPE 
MO 


SCOPE 


DETERMINE IF MORE MNCDA'S REMAIN TO BE TESTED 


RRR AAR RERERREREREEAKEREEKEEEREKRERERKEEEREEEREKEERERE 


;:D0 1 ITERATION 


#1 ,$TIMES 
SUNIT 
SUNIT EVER 
TST35 


SDEVCT 
VADDR ,DACO 
VADDR ,DAC1 
VADDR ,DAC2 
VADDR ,DAC3 
MASKNM 
STSTNM 


-(SP) 
ATST1,-(SP) 


DETERMINE IF RUNNING ON THE HARDWARE TESTER 


#1,$TIMES 


;UPDATE UNIT # 
; TEST 


IF MORE 


3;;BR IF NOT 


sAPT UNIT # 
; UPDATE BUS ADDRESS 


; CHANGE THE ERROR FLAG BIT 


;LOWER PRIORITY AND RESTART TEST 1 


5 RRR RARER EEREE ERE ERE REE EREREE EERE ER REAR REE R RR 


“*TEST 35 


SLE REE RAE E REE EEREEREREERRRRR ERR EERE REAR EERE 


(IF NOT REPORT END OF PA 


:;D0 1 ITERATION 


;TEST IF ON TESTER 


;:BR TO TEST 


CVMND~-A MNCAA 
CVMNDA.P11 


3 
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136 TEST THAT DAC #3 OUTPUT BITS (0-3) FUNCTION 
SAAR AAERAAEAAEEEAAEEEEE AERA ERE REARERERRRRAKRERERRERRRRREERERERRRR ERED 
 STEST 36 TEST THAT DAC #3 OUTPUT BITS (0-3) FUNCTION 
ORR RAARARAEAABAABABABALALABRABALABZEALARAAAAAARABABREAREEARASERA REALE SS SG | 
1ST 36: SCOPE 
012737 000001 001160 MOV #1. STIMES ::DO 1 ITERATION 
012737 000010 010412 MOV #B1T3,$TEMP *LOAD DAC PATTERN 
012737 000 010414 MOV #81T11,$TEMP1 “LOAD EXPECTED PATTERN 
012737 1 010416 MOV #B1T15,$TEMP2 *LOAD OTHER CINVERTED) EXPECTED PATTERN 
013777 010412 173736 1S: MOV STEMP, aDAC3 *LOAD DAC REGISTER 
017737 173736 001126 MOV @DRIN, $BDDAT “READ THE REGISTER 
042737 170377 001126 BIC 1708973 SBDDAT “MASK OFF OTHER BITS 
013737 010414 001124 MOV STEMP1,$GDDAT “LOAD EXPECTED VALUE 
023737 001124 001126 CMP $GDDAT . $BDDAT : COMPARE 
001401 BEQ 2$ ::BR IF THE SAME 
104013 ERROR 13 -DAC #3 DIGITAL OUTPUT BITS IN ERROR 
017737 173702 001126 28: MOV @DRIN, $BDDAT =GET DATA AGAIN 
042737 007777 001126 BIC #7777 . $BDDAT “MASK OFF OTHER BITS 
013737 010416 001124 MOV STEMP2, SGDDAT “LOAD OTHER EXPECTED VALUE 
005137 001124 COM SGDDAT ‘INVERT DATA 
042737 007777 001124 BIC #7777 , SGDDAT “AND MASK OFF OTHER BITS 
023737 001124 001126 CMP SGDDAT , $BDDAT > COMPARE 
001401 BEQ 3$ ::BR IF SAME 
104013 ERROR 13 -DAC 3 DIGITAL OUTPUT BITS IN ERROR 
000257 3$: CCC 
006037 010416 ROR STEMP2 :ADJUST EXPECTED 
006237 010414 ASR STEMP1 : 
006237 010412 ASR $TEMP =ADJUST LOADED PATTERN 
001324 BNE 1$ 
FLERE AEE AEE EEEKEEEEEEREEREEEREREAERREEERREREAREREREREE 
“*TEST 37 VERIFY THE MNCDA +15 SUPPLY 
ORR ABRABABAABAAAAZAABAEBAAAAAABAABRABRARABBRRARAABRERRARERESASE RARER EES SA SS SS 
S137: SCOPE 
012737 000001 001160 MOV #1. STIMES ::DO 1 ITERATION 
013737 010424 001124 MOV V5744, SGDDAT sLOAD EXPECTED 
004537 007700 ISR RS, CONVR = SAMPLE THE CHANNEL 
013737 010426 010420 MOV V144, SPREAD :LOAD TOLERANCE 
737 010032 JSR PC, COMPAR “TEST IT 
000401 BR TST40 3; BR 
104011 ERROR 11 :+#15 VOLT SUPPLY IS WRONG 
SAAR AAA AAA ARARARAEERAAARARARARRAARAERAAAAAERAAARRAEAEARRAE ENED 
=*TEST 40 VERIFY THE MNCDA -15 SUPPLY 
J LUA AREA AAA AAAREAAARAEAARAAARARAEAARAERERARAARAAAERAAAEAAERRRAERE ERS 
000004 1ST40: SCOPE 
012737 000001 001160 MOV STIMES ::PO 1 ITERATION 
013737 010430 001124 MOV y2634. SGDDAT :LOAD EXPECTED 
006537 007700 SR RS, CONVRT *SAMPLE THE CHANNEL 
013737 010426 010420 MOV V144, SPREAD :LOAD TOLERANCE 
004737 010032 JSR PC, COMPAR “TEST IT 
000401 HR TST41 : BR 
104012 ERROR 12 :=15 VOLT SUPPLY IS WRONG 


SEQ 0032 





CVMND~A MNCAA 
CVMNDA .P11 


DIAGNOSTIC 
141 


006642 


007002 


000001 


007126 


007234 


007352 


007470 


001160 


H 3 
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DACO OFFSET ADJUSTMENT 


WOR RRRRBRBAREBSRASAALLSAALALSAARASESE RR ERR RA RRA RR RR RAR ARREARS RRR SSSR DSS SD: 


“*TEST 41 DACO OFFSET ADJUSTMENT 


TOR RRRBRBABREARALBASASZALLSLALELARARER ARES A RARER SERRE RRA RRR R ARRAS ARES SS S| 


TST41: SCOPE 
JSR R5,OFFDAC :LOAD AND EXECUTE DAC OFFSET ADJ. 
DACO ;DAC ADDRESS 
SELDO : TYPEOUT ADDRESS 
ADJR19 sRES. TO ADJUST 
3 ;RESULT CHANNEL # 


WORABRRBRARAAASAAAASLASLASRALASASAESRERERERASARR AAS ARARAERAARAAA ASRS AS SS OD 


-*TEST 42 DACO GAIN ADJUSTMENT 


'WORRRRABRBRBEBAALAALZLLASALLESSARERE SERRA E SERRA RR SERA RAR ARR RR RA RRA SASS S SS 


TST42: SCOPE 
JSR R5,GAIDAC :LOAD AND EXECUTE DAC GAIN ADJ. 
DACO ;DAC ADDRESS 
ADJR18 sRES. TO ADJUST 
3 ; CHANNEL #4 FOR RESULTS 


WOR AARRBABBABRBAALASALALSLLERSRSERLASESES ERS RRR SERA SERA RAR ARRAS ARAL ARS SSS SS | 


“*TEST 43 DACO CALIBRATION 
5 TAREE EAAARAAAAEEEEAEREERR ERA EERE ERREAAERRARAAERERERARRRR KS 
1S143: SCOPE 


MOV #1,$TIMES :;D0 1 ITERATION 


JSR R5,CALDAC ;LOAD AND EXECUTE CALIBRATION 
DACO ;DAC ADDRESS 
13 ; CHANNEL # FOR RESULTS 


'WORPRRABRARASASLLASZALLALLESARERRSES RSE RARER ARS A SRR RRA RR RAR SRR SAAS S SSS S| 


“*TEST 44 DACO 2.5 VOLT SWITCH CHECK 


WORRAARABRBSAAALAZLASLASZALSERSR ARERR ER ERS R ERASE SAR RARER RSA AR RRA ASA RSS DSS OD 


TST44: SCOPE 
JSR R5,TWOVLT :LOAD AND EXECUTE 2.5 VOLT TEST 
DACO ;DAC ADDRESS 
SELDO ; TYPEOUT POINTER 
13 >CHANNEL # FOR RESULTS 


SLE AERA AEA REE REE ERAARAEKEEARRAEEARARERAERAERRERRRRREER SE 


s*TEST 45 DACO 10.0 VOLT SWITCH CHECK 
5 TRAE AERA EEE RRAERRAREREEARERRAERRRERREH 
TST45: SCOPE 
JSR R5,TENVLT :LOAD AND EXECUTE 10.0 VOLT TEST 
DACO ;DAC ADDRESS 
SELDO ;TYPEOUT POINTER 
13 > CHANNEL # FOR RESULTS 


5 TRAE ERAEREEEERRREA ARE 
;*TEST 46 DACO UNIPOLAR SWITCH CHECK 
SF RAE AREA EERE EREREERAAERERAERAAAERARAERAARAAAARAEARAEAERARAREE EE 
TST46: SCOPE 
JSR R5,FIVUNI 
DACO 
SELDO 
13 


;LOAD AND EXECUTE UNIPOLAR TEST 
;DAC ADDRESS 

;TYPEOUT POINTER 

; CHANNEL # FOR RESULTS 


SEQ 0033 


CVMND-A MNCAA 
CVMNDA.P11 


006642 


007002 


000001 


007126 


007234 


007352 


007470 


TIC MACY11 27(654) 
DAC] OFFSET ADJUSTMENT 


001160 
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SS RRARERERAEAEREAERAAERAEAEAERERRAARARKRARAREARKERRAERAERRRARERERRRE ERED 


s*TEST 47 DAC1 OFFSET ADJUSTMENT 
5 LRA AAAA AREER AEARARERERARAAREARARRARAERAAERRERARRERERARRER ERE 
TST47: SCOPE 
JSR R5,OF FDAC ;LOAD AND EXECUTE DAC OFFSET ADJ. 
DAC1 ;DAC ADDRESS 
SELD1 : TYPEOUT ADDRESS 
ADJR21 sRES. TO ADJUST 
4 ;RESULT CHANNEL &@ 


SERRE RARER EERE RARER AEA AEE ERA AAREERAEAEEAERARRERRAERARRERE EE 


:*TEST 50 DAC1 GAIN ADJUSTMENT 
SAAR EAE AERA ERE EERE EERE RRR AARRERREEAERERARRRERER ERE 
TST5SO: SCOPE 
JSR R5,GAIDAC :LOAD AND EXECUTE DAC GAIN ADJ. 
DAC1 ;DAC ADDRESS 
ADJR20 sRES. TO ADJUST 
14 ; CHANNEL #4 FOR RESULTS 


'WEReRSBRERESASASLLALALLESASLARSLARESA SEA RA ARS AAA RRR RR RRA RAR RASS RSS SS S| 


:*TEST 51 DAC1 CALIBRATION 


WORARAAAAASAAZLALLELSLESESLERE RAS ERS RA SERA R ERAS RRR RR RRR SAR RAR ARES SSS SC 


TST51: SCOPE 
MOV #1,$TIMES ::;DO 1 ITERATION 
JSR R5,CALDAC s;LOAD AND EXECUTE CALIBRATION 
DAC1 ;DAC ADDRESS 
14 : CHANNEL # FOR RESULTS 


TTT TTT TTT TTTTTTTTITTTTTTTTTTTLT TTT TTT LLL 


“*TEST 52 DAC1 2.5 VOLT SWITCH CHECK 


'WRARRBASAASZASALALLALELSLE SEER ERASE SERRE SS RERR ERR RR AR RAR ARR RR AR ARRAS SSS SD | 


TSTS52: SCOPE 
JSR RS, TWOVLT s;LOAD AND EXECUTE 2.5 VOLT TEST 
DAC1 ;DAC ADDRESS 
SELD1 : TYPEOUT POINTER 
14 : CHANNEL # FOR RESULTS 


SLA ERA RARER AAARERAEAERRAKEEERE 


:*TEST 53 DAC1 10.0 VOLT SWITCH CHECK 
PETTITT LITILILI LLL TLL iii iii iii iii iii 
1S153: 


SCOPE 

JSR R5, TENVLT ;LOAD AND EXECUTE 10.0 VOLT TEST 
DAC1 ;DAC ADDRESS 

;TYPEOUT POINTER 

14 : CHANNEL # FOR RESULTS 


ITITITITITITILI LILLE LLL LLL LLL LLL LLL LLL LLL LLL Lhe 


 STEST 54 DAC1 UNIPOLAR SWITCH CHECK 
+ RRR ERAR EERE EERE RR REE ERE ERR EERE ER RRR Re 
TST54: SCOPE 
JSR R5,F IVUNI :LOAD AND EXECUTE UNIPOLAR TEST 
DAC1 :DAC ADDRESS 
SELD1 : TYPEOUT POINTER 


14 ;CHANNEL # FOR RESULTS 


SEQ 0034 
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CVMNDA P11 T55 DAC2 OFFStT ADJUSTMENT SEQ 0035 
610 Sy eff RRR TIT RRR ER ih | 
(4) :*TEST 55 DAC2 OFFSET ADJUSTMENT 
(4) SRR RARER EERE EERE RARE EERE RARER ERR ee 
(3) 006200 000004 TST55: SCOPE 
(1) 006202 004537 006642 JSR R5 ,OF FDAC ;LOAD AND EXECUTE DAC OFFSET ADJ. 
(1) 006206 001452 DAC2 ;DAC ADDRESS 
(1) 006210 012717 SELD2 ;TYPEOUT ADDRESS 
(1) 006212 012362 ADJR42 :RES. TO ADJUST 
(1) 006214 000015 15 ;RESULT CHANNEL # 
(5) SRE EERE EERE EERE REE EEE RR RE 
(4) ;*TEST 56 DAC2 GAIN ADJUSTMENT 
(4) SRR EERE REE EERE ER EE 
(3) 006216 000004 TST56: SCOPE 
(1) 006220 004537 007002 JSR R5 ,GAIDAC ;LOAD AND EXECUTE DAC GAIN ADJ. 
(1) 006224 001452 DAC2 ;DAC ADDRESS 
(1) 006226 012401 ADJR41 sRES. TO ADJUST 
(1) 006230 000015 15 ; CHANNEL # FOR RESULTS 
(5) SERRE ERE REE 
(4) s*TEST 57 DAC2 CALIBRATION 
(4) SRR ERE ARERR EEE EERE EERE REREAD 
(3) 006232 000004 TST57: SCOPE 
(2) 006234 012737 000001 001160 MOV #1 ,$TIMES 3:D0 1 ITERATION 
(1) 006242 004537 007126 JSR RS, CALDAC ;LOAD AND EXECUTE CALIBRATION 
(1) 006246 001452 DAC2 :DAC ADDRESS 
(1) 006250 000015 15 ; CHANNEL # FOR RESULTS 
(5) LOSER IEIE EIEIO IEICE IO IIOUIISIIINIEIOIIOIOOIOR i itott 
(4) :*TEST 60 DAC2 2.5 VOLT SWITCH CHECK 
(4) SRR EEE ERR ERR REE RARER RRR Ee 
(3) 006252 000004 TST60: SCOPE 
(1) 006254 004537 007234 JSR R5,TWOVLT sLOAD AND EXECUTE 2.5 VOLT TEST 
(1) 006260 001452 DAC2 DAC ADDRESS 
(1) 006262 012717 SELD2 ;TYPEOUT POINTER 
(1) 006264 000015 15 > CHANNEL # FOR RESULTS 
(5) LL RARER EEE REE REE REREAD 
(4) ;*TEST 61 DAC2 10.0 VOLT SWITCH CHECK 
(4) 2 RRR EERE EERE REE REAR EEER REE R RRR RRR REE EEE 
(3) 006266 000004 TST61: SCOPE 
(1) 006270 004537 007352 JSR R5,TENVLT ;LOAD AND EXECUTE 10.0 VOLT TEST 
(1) 006274 001452 DAC2 ;DAC ADDRESS 
(1) 006276 012717 SELD2 ;TYPEOUT POINTER 
(1) 006300 000015 15 >CHANNEL # FOR RESULTS 
(5) ERA RARER REE EEE EERE RARE EERE EAE REREREAR ERE ED 
(4) SSTEST 62 DAC2 UNIPOLAR SWITCH CHECK 
(4) ARERR AREER EAE AERA EE 
(3) 006302 000004 +S 162: SCOPE 
(1) 006304 004537 007470 JSR R5,F IVUNI ;LOAD AND EXECUTE UNIPOLAR TEST 
(1) 006310 001452 DAC2 :DAC ADDRESS 
(1) 006312 012717 SELD2 ;TYPEOUT POINTER 
(1) 006314 000015 15 *CHANNEL # FOR RESULTS 


CVMND-A MNCAA 
CVMNDA.P11 


DIAGNOSTIC 
DACS OFFSET ADJUSTMENT 


163 


006642 


007002 


000001 


007126 


007234 


007352 


007470 


MACY11 27(654) 


001160 
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RRA AEA EEREREKEEKRKEEKEEEEEEREE 


“&TEST 63 DAC3 OFFSET ADJUSTMENT 


TOR CRELESAESASZASASAES ELE LE SESE SEE EEE RRR RE RRR RRA RR RAR ARERR ARRAS SSDS S| 


TST63: SCOPE 
JSR R5 ,OF FDAC ;LOAD AND EXECUTE DAC OFFSET ADJ. 
DAC3 :DAC ADDRESS 
SELD3 ;TYPEOUT ADDRESS 
ADJR44 RES. TO ADJUST 


;RESULT CHANNEL # 


PEER IIE IOOIISISIDIDIISIIODIITITIOIDIIIIS IOI IOI 


“TEST 64 DAC3 GAIN ADJUSTMENT 
PUTT TTT TIT I TTI TILT LLL Ltt iii iii 
18164: SCOPE 
JSR R5,GAIDAC ;LOAD AND EXECUTE DAC GAIN ADJ. 
DAC3 ;DAC ADDRESS 
ADJR43 sRES. TO ADJUST 


16 ;CHANNEL # FOR RESULTS 


DEERE EIEIO SSIES OIUIIIIEI IE OUIIISIOIIIOIUITIDIOIIOOI IDIOT 


SRTEST 65 DACS CALIBRATION 
PUTT TTI TTI ITIL LI LLL LLL LLL iii 
18165: SCOPE 
MOV #1,$TIMES 3:D0 1 ITERATION 
JSR R5, CALDAC ;LOAD AND EXECUTE CALIBRATION 
DAC3 :DAC ADDRESS 
16 ;CHANNEL # FOR RESULTS 


PITTI TITITILITT LLL LLL LLL LLL ttt bik ihidiiiiisisicoie 


SRTEST 66 DAC3 2.5 VOLT SWITCH CHECK 
PTC TIT TTTITILITL LIL LLL LLL LLL LLL LLL 
18166: SCOPE 
JSR R5,TWOVLT ;LOAD AND EXECUTE 2.5 VOLT TEST 


DAC3 ;DAC ADDRESS 
SELDS ;TYPEOUT POINTER 
16 ; CHANNEL # FOR RESULTS 


PTTTITITTL LILLE LLL LLL LLL tied kikicbioiiicicicteoieis 


TRTEST 67 DAC3 10.0 VOLT SWITCH CHECK 
AAAS 
18167: SCOPE 
JSR RS, TENVLT ;LOAD AND EXECUTE 10.0 VOLT TEST 
:DAC ADDRESS 
SELD3 :TYPEOUT POINTER 
16 [CHANNEL # FOR RESULTS 


SRRAAAAAAAAEAEAAEREREE EERE EERE RERRAEEREREREREERRREERERERRERR EERE REE 


SRTEST 70 DAC3 UNIPOLAR SWITCH CHECK 
TOR ERRAEERALALALALCAAZLACAAZABAAAAAAASEAESAEAESEL ELEC R RARER RARE SS 
18170: SCOPE 
JSR RS, FIVUNI ;LOAD AND EXECUTE UNIPOLAR TEST 
DAC3 :DAC ADDRESS 
SELD3 :TYPEOUT POINTER 
16 “CHANNEL # FOR RESULTS 


a rte titi tt ttt 


ORDA ARARA AAR RAK RAK AAA AAA AAA AAA AAAOO 


So 


625 
62 


DIAGNOSTIC 


001102 
001160 


001176 
100000 


006541 
001176 


0065 36 
000042 


377 
042412 
051501 


000100 
001112 


012002 
001112 


000001 
012031 
010404 


006536 
010174 
002600 


001176 


000 
042116 
020125 


172360 


010406 


MACY11 27(654) 
END OF PASS ROUTINE 


.SBTTL END OF PASS ROUTINE 
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MARR SBAAASAALASLALALALALELARAAAL ERAS ARE RAR RAR A ARRAS AR ARRAS SAA SES SS S| 


: INCREMENT THE PASS NUMBER (SPA 


ASS) 
:*TYPE "END PASS AXXXXX"' i XXXXX IS A DECIMAL NUMBER) 


:*I1F THERES A MONITOR GO T 
:*I]F THERE ISN'T JUMP TO INIT? 


SEOP: 


SEOPCT: 


SENDCT: 


$GET42: 


SENDAD : 


SDOAGN: 


SRTINAD: . 
SENULL: . 
SENDMG: . 


INIT?: 


1$: 


STSTNM 
ee 


SPAS 
#100000, $PASS 


(PC) 
1 


SDOAGN 
peer 


. SENDMG 
SPASS ,~ (SP) 


, SENULL 
a#42,R0 


SDOAGN 
PC, (RO) 


a(PC)+ 
me 


,0 
<i$o<io>/END PASS’ #/ 
#B1T6,a$TKS 
SERTTL 


ERRTOT 
SERTTL,~(SP) 
#1 ,.MASKNM 

1$ 

ME SGD 
BADUNT , = (SP) 


SENULL 
PC,CTRLCG 
LOGIC 


3;ZERO THE TEST NUMBER 

se ONCR THE NUMBER OF ITERATIONS 
¢ INCREMENT THE PASS NUMBER 
age ALLOW A NEG. 


s3VES 
;sRESTORE COUNTER 


TYPE "END PASS #°' 

:;SAVE $PASS FOR TYPEOUT 

33GO TYPE--DECIMAL ASCII WITH SIGN 
HARACTER 


: sRETURN 
sNULL CHARACTER STRING 


;RE-ENABLE TKS INTR. 
;TEST IF ANY ERRORS 
IF NONE 


:TEST IF ADDITIONAL UNITS 
;BR IF NONE 


; INFORM OPER. ABOUT OTHER UNIT ERRORS 
OT BADUNT FOR TYPEOUT 
O TYPE--BINARY ASCII 
sENSURE THE OUTPUT MADE IT 
:TEST FOR CONTROL CHAR. 
;TEST IT AGAIN 


CVMND-A MNCAA 
CVMNDA.P11 


DIAGNOSTIC 


012537 


MACY11 27(654) 
SUBROUTINE TO ADJUST THE DAC'S OFFSET POTS 


.SBTTL SUBROUTINE TO ADJUST THE DAC'S OFFSET POTS 


010402 


000052 


001124 


010420 


007124 


010402 


000052 


001124 


010420 


OF FDAC: 


11$: 


23: 
10$: 
~SBTTL 


GAIDAC: 


— —— 


12$: 


M 3 
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(R5)+,10$ 
a10$,10$ 
10$,DACBAD 
(R5)+,11$ 


(R5)+,12$ 
(R5)+,13$ 


$PASS 
2$ 


;GET BUS ADDRESS 


:LOAD BUS ADDRES IF ERROR 
:GET POINTER TO ASCII MESSAGE 
:GET POINTER TO RES. MESSAGE 
:GET AND SAVE CHANNEL # 

;TEST IF FIRST Any 

sEXIT IF NOT FIRST PASS 


: TELL OPERATOR TO SELECT DAC N 


;TELL OPERATOR ABOUT THE EXPECTED VOLTAGE 
#0000,a10$ st 


a 


PC ,CSPACE 
#0000 , $GD 
R5, CONVRT 


#4, SPREAD 
—— 


$ 
6 


1$ 
R5 


DAT 


OAD THE SELECTED DAC TO NULL 
;TELL OPERATOR TO ADJUST RXX 


;WAIT UNTIL THE IS READY 
;LOAD EXPECTED VALUE 
> SAMPLE THE CHANNEL 


; TEST RESULTS 


:BR IF WITHIN THE LIMIT 
; SELECTED’ DAC OFFSET POT WAS NOT ADJUSTED INCORRECTLY 


;LOOP AGAIN 
sEXIT 


SUBROUTINE TO ADJUST THE GAIN ADJUSTMENT POTS 


MOV 


(R5)+,10$ 
a10$, 10$ 
10$,DACBAD 
(R55+,11$ 
(R5)+,12$ 
SPASS 


:GET BUS ADDRESS 


:LOAD BUS ADDRESS IF ERROR 
+} wo. wi ADDRESS 


;GET CHANNE 
:TEST IF FIRST PASS 


2$ :BR IF NOT 
:TELL OPERATOR ABOUT THE EXPECTED VOLTAGE 


#7777 ,a10$ 


PC,CSPACE 
#7777, $GDDAT 


R5,CONVRT 


#4, SPREAD 
PC, COMPAR 
2$ 


;LOAD THE DAC 
;TELL OPERATOR WHICH RXX TO ADJUST 


;WAIT FOR OPERATOR 
;LOAD EXPECTED 
;CONVERT THE VALUE 


;LOAD LIMIT 
; TEST RESULTS 
WITHIN LIMITS 


SEQ 0038 


CVMND-A MNCAA 
CVMNDA P11 


Y > > 
DAE PEPE Sprit tt 


DP 


722 


DIAGNOSTIC 


012537 


012777 
012737 


004537 
000013 


012737 
004737 


012537 


012515 
010020 
007777 
006000 
007700 


000004 
010032 


007466 


N 3 
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SUBROUTINE TO ADJUST THE GAIN ADJUSTMENT POTS 


007232 
010402 


000052 
001124 
010420 
000012 


; 
001124 


007350 
010402 


000034 
001124 


010420 


2$: 
10$: 


. SBTTL 
CALDAC: 


10$: 


TWOVLT: 


11$: 


2$: 


10$: 
. SBTTL 
TENVLT: 


a 7 ;SELECTED DAC GAIN POT WAS NOT ADJUSTED PROPERLY 
TRYAGN 

BR 1$ 

ky R5 sEXIT 


SUBROUTINE TO TEST THE D/A CALIBRATION 
MOV (R5)+,10$ ;GET BUS ADDRESS 


MOV a10$,10$ ; 
MOV 10$ , DACBAD :LOAD BUS ADDRESS IF ERROR 
HANNEL # 


MOV (R5)+,11$ “GET C 


MOV #7400 ,a10$ ;LOAD THE DAC 
MOV #7400, $GDDAT ;LOAD THE EXPECTED VALUE 


JSR R5,CONVRT ; SAMPLE THE CHANNEL 
MOV #5, SPREAD 
JSR PC ,COMPAR 
BR 2$ 
ERROR 10 


SUB #400,a10$ 
SUB #400, $GDDAT 
BN 1$ 


;LOAD TOLERANCE 
;TEST THE RESULTS 


;2BR 

s;NON-LINEARITY IN DAC DETECTED 
sADJUST THE CONTENTS 
:ADJUST THE EXPECTED 

;;BR IF NOT DONE 


RTS R5 sEXIT 

0 

.SBTTL SUBROUTINE TO VERIFY THE 2.5 VOLT SWITCH POSITION 
MOV (R5)+,10$ ;SAVE DAC ADDRESS 

MOV a10$, ;GET ACTUAL ADDRESS 


;SAVE ADDRESS FOR TYPEOUT 
;GET ASCII MESSAGE 
:GET TESTER CHANNEL 


MOV (R5)+,11$ 
MOV (R5)+,12$ 
SPASS 


TST : TEST IF FIRST PASS 

BNE 2$ ;BR IF NOT 

dia § TWOTXT : TELL OPERATOR TO CHANGE SWITCH 
SELDO 30N DAC N 

JSR PC,CSPACE sWAIT FOR OPERATOR 


MOV #7777 .a@10$ 
JSR R5, CONVRT 


MOV #4, SPREAD 
JSR «Tachi 


;LOAD DAC OUTPUT 
;LOAD EXPECTED 
;CONVERT DATA ON CH 


;LOAD TOLERANCE 
;TEST IF WITHIN LIMITS 


BR 2 
ERROR 16 :FRONT PANEL SWITCH ERROR 
RTS R5 sEXIT 


0 
SUBROUTINE TO VERIFY THE 10.0 VOLT SWITCH POSITION 
MOV (R5)+,10$ ;GET DAC ADDRESS 


SEQ 0039 


CVMND-A MNCAA 
CVMNDA .P 11 


007356 
007364 


DIAGNOSTIC 


017737 


00 
010277 


007444 
001176 


012553 


012610 
010020 
001777 
006000 
007700 
000015 
010032 
012645 
010020 
001100 
002044 
000010 
000001 


171576 


MACY11 27(654) 


007466 
010402 


000034 
001124 


010420 


007626 
010402 


007616 


000050 
001124 


010420 


11$: 
1$: 


12$: 


2$: 
13$: 


3$: 
10$: 


LAMPS: 


1$: 
2$: 


B 4 
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SUBROUTINE TO VERIFY THE 10.0 VOLT SWITCH POSITION 


MOV a10$,10$ ;GET READ ADDRESS 
MOV 10S, DACBAD “SAVE FOR “YPE 
MOV (R5)+,11$ GET TEXT POINTER 
MOV (Ra). 12$ -GET TESTER CHANNEL 
TST $PASS -TEST IF FIRST PASS 
BNE 2$ : IF NOT 
TYPE, TENTXT 
YPE 
SELDO 
JSR PC, CSPACE 
MOV #4777 ,a10$ sLOAD DAC OUTPUT 
MOV #6000, $GDDAT :LOAD EXPECTED 
JSR R5,CONVRT =CONVERT DATA ON CH 
MOV #15, SPREAD :LOAD TOLERANCE 
JSR PC, COMPAR -TEST IF WITHIN LIMITS 
BR 2$ -BR IF NO ERROR 
ERROR 16 =FRONT PANEL SWITCH ERROR 
ie R5 “EXIT 
SUBROUTINE TO VERIFY THE UNIPOLAR SWITCH POSITION 
: MOV (R5)+ +108 :GET DAC ADDRESS 
MOV 31 0$,10$ :GET REAL ADDRESS 
MOV 10$,DACBAD =SAVE FOR TYPEOUT 
MOV (R5)+,11$ -GET TEXT POINTER 
MOV 11$,13$ : 
MOV (R5)+,12$ *GET TESTER CHANNEL 
TST SPASS" “TEST IF FIRST PASS 
BNE 3$ ; IF NOT 
TYPE, UNITXT 
TYPE 
SELDO 
JSR PC, CSPACE :WAIT FOR OPERATOR 
MOV #1777,a10$ *LOAD DAC OUTPUT 
MOV #6000, $GDDAT :LOAD EXPECTED 
JSR R5,CONVRT =CONVERT DATA ON CH 
MOV #15, SPREAD :LOAD TOLERANCE 
JSR PC, COMPAR -TEST IF WITHIN LIMITS 
BR 2$ -BR IF NO ERROR 
ERROR 16 :FRONT PANEL SWITCH ERROR 
TYPE, BIPTXT -TELL OPERATOR TO CHANGE SWITCH 
TYPE “ON SELECTED DAC 
SELDO 
JSR PC, CSPACE :WAIT FOR OPERATOR 
i R5 sEXIT 
SBTTL FIELD TEST MODULE DIGITAL OUTPUT LAMP LOOP 
MOV #STACK, SP =PRIME THE STACK 
JSR PC .LDTRAP =LOAD TRAP AND ADDRESSES 
MOV #B1T3,R2 =LOAD DATA PATERN 
MOV #1,R0 :LOAD DELAY 
CLR R1 
MOV R2,aDAC3 :LOAD DATA OUTPUT 


SEQ 0040 


CVMND-A MNCAA 


CVMNDA . P 


11 


DIA 


STIC 


010174 


010012 


171520 
171514 


171510 
010016 


010014 
010014 
010014 
010014 


011601 


010012 
171536 


010016 


010014 


001126 


GNO MACY11 27(654) 
FIELD TEST MODULE DIGITAL OUTPUT LAMP L 


3$: 


. SBTTL 
CSPACE: 


C 4 
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GOP 


DEC R1 

BNE 3$ : DELAY 

DEC RO 

BNE 3$ 

ASR R2 s CHANGE THE DATA 

BNE 2$ 

= + eres s;TEST FOR CONTROL CHAR. 


SUBROUTINE TO CONVERT CHANNEL N ON THE TESTER A/D 


MOV (R5)+,10$ ;GET THE CHANNEL #4 
SWAB 10$ 

BIC #170377,10$ ;MASK OUT OTHER BITS 
MOV 10$,@ADCS >SELECT CHANNEL 

CLR 11$ 

MOV #BIT7,12$ ;LOAD SHIFT COUNTER 
INCB @ADCS ;CONVERT CHANNEL 

8 _* ;WAIT FOR DONF 

ADD @ADBR ,11$ ;UPDATE CONVERSION 
ASR 12$ sFINISHED ? 

BNE $ 

CCC 

ROR 11$ 

ASR 11$ 

ASR 11$ ; JUSTIFY DATA 

MOV 11$,$BDDAT ;LOAD ACTUAL <ADJUSTED> 
RTS R5 EXIT 

0 

0 

0 


SUBROUTINE TO LOOP UNTIL OPERATOR TYPES THE ‘RETURN’’ KEY 


TYPE, LDSPAC ;TELL OPERATOR TO HIT RETURN KEY 
RDLIN ;WAIT FOR INPUT 
TST (SP) + ;CLEAN STACK 


RTS PC sEXIT 
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CVMND-A MNCAA DIAGNOSTIC MACY11 27(654) 
CVMNDA.P11 SUBROUTINE TO COMPARE TWO LOCATIONS BY THE SPREAD SEQ 0042 
Bee .SBTTL SUBROUTINE TO COMPARE TWO LOCATIONS BY THE SPREAD 
834 010032 010046 COMPAR: MOV RO,-(SP) ; SAVE RO 
835 010034 010146 MOV R1,-(SP) ; SAVE R1 
836 010036 013700 001124 MOV $GDDAT ,RO ;GET EXPECTED VALUE 
837 010042 013701 001126 MOV S$BDDAT ,R1 ;GET THE UNKNOWN 
838 010046 1601 SUB R1,RO ; SUBTRACT 
839 010050 100001 BPL 8$ 
840 010052 5400 NEG RO 
841 010054 020037 010420 8$: CMP RO, SPREAD ;TEST IF DIFFERENCE IF > THAN SPREAD 
842 010060 3405 BLE 10$ 
843 010062 012601 9$: MOV (SP)+,R1 ;RESTORE R1 
844 010064 012600 MOV (SP)+,RO ;RESTORE RO 
845 010066 062716 000002 ADD #2, (SP) ;MAKE AN ERROR EXIT 
846 010072 20 RTS PC EXIT 
847 010074 012601 10$: MOV (SP)+,R1 
848 010076 0126 MOV (SP) +,RO 
po 010100 RTS PC sEXIT FOR GOOD LIMIT TEST 
Bee -SBTTL FULL SCALE RAMP ON EACH RAMP 
857 010102 012706 001100 FULRMP: MOV ASTACK, SP ;LOAD POINTER 
858 010106 004737 002044 JSR PC,LDTRAP ;LOAD BUS ADDRESS 
859 010112 013700 00144 1$: MOV DACO,RO ;GET BUS ADDRESS 
860 010116 737 010160 JSR 10 ;LOAD THE RAMP ON DAC #1 
861 010122 013700 14 MOV DAC1,RO :GET BUS ADDRESS 
862 010126 004737 010160 JSR .10 ;LOAD THE RAMP ON DAC 41 
863 010132 013700 001452 MOV DAC2,RO :GET BUS ADDRESS 
864 010136 004737 010160 JSR PC,10$ ;LOAD THE RAMP ON DAC #2 
865 010142 013700 001454 MOV DAC3,RO ;GET THE BUS ADDRESS 
866 010146 004737 010160 JSR PC,10$ ;LOAD THE RAMP ON DAC #3 
867 010152 004737 010174 JSR PC,CTRLCG ;TEST FOR CONTROL CHAR. 
868 010156 00075 BR 1$ :BR BACK 
869 010160 005010 10$: CLR (RO) :CLEAR DAC 
870 010162 062710 000010 11$: ADD #10, (RO) ;UPDATE THE DATA 
871 010166 005710 TST (RO) ;TEST IF DONE 
872 010170 001374 BNE 11$ :BR IF NOT 
he 010172 000207 RTS PC EXIT 
Ene -SBTTL CONTROL CHARACTER DETECTOR 
877 010174 105777 170744 CTRLCG: TSTB a$TKS sTEST FOR INPUT FLAG 
878 010200 22 BPL 2$ F NOT 
879 010202 017737 170740 010250 MOV a$TKB,CTRCHA ® SAVE CHARACTER 
880 010210 042737 177640 010250 BIC #177640,CTRCHA :MASK OFF BITS 
881 010216 022737 000003 010250 CMP #3,CTRCHA sTEST IF CTRL C 
882 010224 0010035 BNE 1$ :BR IF NOT 
883 010226 005726 TST (SP) + ;CLEAN THE STACK 
884 010230 137 002374 JMP MTEST1 :AND RETYPE THE ‘DOT"' 
885 010234 022737 000007 010250 I$: CMP #7,CTRCHA Jie IF CTRL G 
886 010242 1001 BNE 2$ F NOT 
887 010244 104407 GTSWR GET SWR FROM OPERATOR 
888 010246 207 e$: RTS PC EXIT 
889 010250 CTRCHA: 0 ;CHAR. THE OPER. TYPED DUNRING RUNNING 


CVMND-A MNCAA 
CVMNDA.P11 


010252 


010306 
010312 


010314 


DIAGNOSTIC 
CONTROL CHARACTER DETECTOR 


001100 


010350 


MACY11 27(654) 


.SBTTL 
STATIC: MOV 
JSR 
1$: JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
BR 
SBTTL 
DYNCAL: MOV 
JSR 
1$: JSR 
MOV 
JSR 
CLR 
JSR 
BR 
10$: MOV 
MOV 
MOV 
MOV 
MOV 
11$ DEC 
BPL 
RTS 
DACBAD: ABASE 
BADUNT: 0 
MASKNM: BITO 
TEMP: 
STEMP: O 
STEMP1: 0 
STEMP2: 0 
SPREAD: 0 
WFTST: O 
V5744: 5744 
V144: 144 
V2034: 2034 


E 4 
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STATIC DAC CALIBRATION 


ASTACK,SP 
PC,LDTRAP 
PC,CTRLCG 


RO,aDAC2 
+ rates 


DYNAMIC DAC CALIBRATION 
ASTACK,SP 


PC,LDTRAP 
PC,CTRLCG 


;LOAD STACK POINTER 
;LOAD BUS ADDRESSES 
;TEST FOR CTRL G OR C 
;READ SWITCHES 


;LOAD STACK POINTER 
; BUS ADDRESSES 
;TEST FOR CTRL G OR C 


SWR VALUE TO ALL DACS 
;LOAD ALL DAC'S WITH 0 


sLOAD DAC #0 
;LOAD DAC #1 
;LOAD DAC #2 


;LOAD DAC #3 
;LOAD DELAY COUNTER 
; DELAY 


:WAIT 
sEXIT 


946 


947 


948 


949 


950 


064 
011072 


DIAGNOSTIC 


F 4 
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MISC. SUB-ROUTINES, ASCII MESSAGES AND SOFTWARE HANDLERS 


020101 
004451 


052512 


EM1: 


EM2: 


EM3: 


EM4: 


EMS: 


EM6: 


EM7: 


~ SBTTL 
ASCIZ 


-ASCIZ 


ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


ASCIZ 


ASCII MESSAGES 


\MNCAA 


\MNCAA 


\MNCAA 


\MNCAA 


\MNCAA 


/MNCAA 


/MNCAA 


(D/A) DOES NOT EXIST <BUS ERROR> CHECK ADDRESS SWITCHES\ 
(D/A) DACO REGISTER IN ERROR\ 

(D/A) DAC] REGISTER IN ERROR\ 

(D/A) DAC2 REGISTER IN ERROR\ 

(D/A) DACS REGISTER IN ERROR\ 

SELECTED DAC OFFSET POT WAS ADJUSTED INCORRECTLY/ 

SELECTED DAC GAIN POT WAS ADJUSTED INCORRECTLY/ 


CVMND-A MNCAA 
CVMNDA.P11 


952 


953 


955 


956 


957 


958 


959 


01 


ee eed a et od od oJ 
FRSGKRVEKS 


=—ON™N 


OOOO COCOCOCCO 
Onn 


Mn — 


ed eed eed eed od 


DIAGNOSTIC 
ASvil MESSAGES 


052123 


MACY11 27(654) 


023514 


EM10: 


EM11: 


EM12: 


EM13: 


EM14: 


EM15: 


EM16: 


EM17: 
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ASCIZ 


ASCIZ 


ASCIZ 


ASCI2Z 


ASCIZ 


-ASCIZ 


ASCIZ 


ASCIZ 


/MNCAA 


/MNCAA 


/MNCAA 


/MNCAA 


/PLEASE 


/MNCAA 


SELECTED DAC HAS A LINEARITY PROBLEM/ 


+15 VOLT SUPPLY IS INCORRECT/ 


-15 VOLT SUPPLY IS INCORRECT/ 


DAC #3 DIGITAL OUTPUT BITS IN ERROR/ 


ADJUST THE POT/ 


INCORRECT I1.D. VALUE CODE/ 


/SELECTED DAC HAS A FRONT PANEL SWITCH PROBLEM/ 


\MNCAA (D/A) 


EXISTING MNCAA NOW FAIL'S TO RESPOND\ 


SEQ 0045 
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CVMNDA .P11 ASCII MESSAGES SEQ 0046 


011564 020123 047524 051040 
011572 mae 047520 042116 


011600 
960 011601 015 004412 042504 LDSPAC: .ASCIZ <15><12>/ DEPRESS THE ‘RETURN'’ KEY WHEN DONE/ 
011606 051120 051505 0201235 


000 
961 011647 015 003412 047503 MSGSW: .ASCIZ <15><12><7>/CONNECT TESTER MINC-AA DWARF TO M.U.T./<15><12> 


011720 
962 011723 123 052105 040440 FRONT: .ASCIZ \SET ALL MINC-AA SWITCHES TO *'+/="' AND 5 VOLT\<15><12> 
011730 046114 046440 047111 


6117 000012 
963 012002 035440 047524 040524 ERRTOT: .ASCIZ / ; TOTAL ERROR COUNT = / 


000 
964 012031 040 0410735 042101 MESGD: .ASCIZ / ;BAD UNITS / 


965 012046 015 012 FOUND1: .BYTE 15,12 
966 043517 040522 -ASCIZ /PROGRAM DETECTED / 


012064 000040 
967 012072 046440 041516 040501 FOUND2: .ASCIZ \ MNCAA (D/A)"S \ 


0040 000040 
052111 042411 DH1: -ASCIZ /UNIT ERRPC BUSADR EXPECT WAS/ 


052111 042411 Dke: -ASCIZ /UNIT ERRPC BUSADR/ 
051122 041520 AAR 


970 047125 ap 042411 DHé6: -ASCIZ /UNIT ERRPC BUSADR EXPECT WAS SPREAD / 


OOooooo0o°o°o°& 
ond aah cath aed end ca ea cd ad ed ed 
MOMINMINGMPININNINININININNY 
MNO NNOWWS N= 
N 
—_ 
Nm 
Ww 


2520 1 
053411 051501 0514 


CVMND-A MNCAA 


CVMNDA . 


971 


at to Yt SS IS 


—-2 
— 


~~ | ae 
eee we 


987 


P11 


DIAGNOSTIC 
ASCII MESSAGES 


051120 
125 
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051101 


051525 
020071 


052512 
034061 


051525 
020061 
052512 
030062 
051525 
020062 
052512 
030464 
051525 
020064 


052512 
031464 


020104 


DH17: 


ADJR19: 


ADJR18: 


ADJR21: 


ADJR20: 


ADJR42: 


ADJR41: 


ADJR4G4: 


ADJR4s3: 


SELDX: 


TWOTXT: 


TENTXT: 


UNITXT: 


BIPTXT: 
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ASCIZ 


-ASCIZ 


ASCIZ 


-ASCI2Z 


-ASCIZ 


-ASCIZ 


ASCIZ 


-ASCIZ 


ASCIZ 


-BYTE 


ASCIZ 


-ASCIZ 


-ASCIZ 


eASCI2 


-ASCIZ 


/UNIT 


/ ADJUST 


/ ADJUST 


/ ADJUST 


/ ADJUST 


/ ADJUST 


/ ADJUST 


/ ADJUST 


/ ADJUST 


15,12 
/CONNE CT 


<15><12>\SELECT +/- AND 2.5 VOLT ON \ 


<15><12>\SELECT +/- AND 10 VOLT ON \ 


<15><12>\SELECT + AND 0-10 VOLT ON \ 


<15><12>\SELECT +/- AND 5 VOLT ON \ 


ERRPC 


R19 


R18 


R21 


R20 


R42 


R41 


R44 


R43 


DVM TO THE OUTPUT OF / 


27-3 


/ 


WERE 


ARE / 


SEQ 0047 


CVMND-A MNCAA 
CVMNDA .P11 


1000 
1001 


1002 
1003 


1004 
1005 


1006 
1007 


1008 
1009 


012666 
012674 


012701 
012706 


DIAGNOSTIC 
ASCII MESSAGES 


020065 
047440 


040 
000040 
042040 

000 


047526 
020116 


040504 
041501 
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052114 

000 
030103 
020061 


031103 
020063 


030065 
051524 
046040 
052040 
051040 
052517 
046040 
051440 
020116 


054504 
020103 


SELDO: 
SELD1: 
SELD2: 
SELD3: 


TRYAGN: 


N51200: 


P51175: 


PRIMEO: 


ASCIZ 
ASCIZ 
ASTIZ 
ASCIZ 
-ASCI2Z 


-BYTE 
ASCIZ 


BYTE 
-ASCIZ 


-BYTE 
ASCII 


-BYTE 
ASCII 


-BYTE 
ASCII 


-BYTE 
ASCII 


/ DACO / 
/ DACI / 
/ DAC2 / 
/ DAC3 / 
<15><12>/ADJUST THAT SAME POT AGAIN PLEASE/<15><12> 


15,12 
/EXPECTED OUTPUT VOLTAGE IS =-5.12000 VOLTS / 


15,12 
/EXPECTED OUTPUT VOLTAGE IS +5.11750 VOLTS / 


5.12 
L = LOGIC TEST\ 


12 
= RAMP OUTPUT LOOP\ 


15,12 
\S = STATIC CALIBRATION LOOP\ 


15,12 
\D = DYNAMIC CALIBRATION LOOP\ 


SEQ 0048 
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013260 040503 044514 051102 
013266 Rr ete 047511 020116 


1010 013300 015 012 ~BYTE 15,12 
1011 013302 seats Ror ER 040502 -ASCII \B = BASE ADDRESS CHANGE \ 


1012 013331 015 O12 -BYTE 
1013 


15,12 
013553 117 036440 047440 ASCII \O = 


OUTPUT TEST MODULE LED LOOP\ 


0133 
1014 0133572 015 012 -BYTE 


15,12 
1015 013374 020107 020075 042507 ASCII \G 


= GET NEW SWITCH REGISTER VALUE \ 


1016 013435 015 012 -BYTE 


15,12 
1017 013437 110 036440 044040 -ASCIZ \H = 


HELP THE OPERATOR AND RETYPE THIS LIST \ 


1018 013516 015 012 DOT: -BYTE 15,12 
1019 013520 egtiy) 042520 052040 -ASCIZ /TYPE THE ‘TEST CHARACTER’' THEN DEPRESS ‘RETURN KEY’ / 


13600 
1020 013606 015 O12 PRIMBA: .BYTE 15,12 
1021 013610 047115 040503 020101 ~ASCIZ \MNCAA (D/A) BASE ADDRESS <\ 
0420 040457 
0 0440 
013632 042104 042522 051525 
3604 000 
1022 0136435 076 037440 000040 PRIMBB: ane \> ? \ 
1024 013650 athe 001116 001126 DTI: UNI TBD ,SERRPC ,$BDDAT ,0 
1025 013660 002536 001116 001446 DT2: UNI TBD, SERRPC ,DACO, $GDDAT , $BDDAT ,0 
13666 6 000000 
6 001450 DT3: UNI TBD, SERRPC ,DAC1, $GDDAT , SBDDAT ,0 


CVMND-A MNCAA 
CVMNDA P11 
013702 
1027 013710 
013716 
1028 013724 
013732 
1029 013740 
013746 
013754 
1030 013756 
013764 
1031 013770 
013773 
013776 


DIAGNOSTIC 
ASCII MESSAGES 


001124 
002536 


001126 


8 
—_— 
— 
_ 
oO 


S 88888 
—_ _ od wd) = 2d 
Oo ACCOM 


sae 
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000000 
001452 
000000 
001454 


000000 
010402 
010420 


001202 


000 
000 


DT4: UNI TBD ,SERRPC ,LAC2,$GDDAT , SBDDAT ,0 
DTS: UNI TBD ,SERRPC ,DAC3, $GDDAT , $BDDAT ,0 
DT6: UNI TBD ,SERRPC ,DACBAD , SGDDAT , $BDDAT , SPREAD , 0 


DT17: UNITBD,SERRPC,SUNIT,EVER,0 
DFO: -BYTE 0,0,0,0,0,0,0,0 


SEQ 0050 
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CVMNDA P11 ASCII MESSAGES SEQ 0051 
1033 
1034 .SBTTL BINARY TO ASCI: AND TYPE ROUTINE 
(2) SRA ERAAERAEAEAAE AERA EKEEKEREKERERKEREREREERERERRRRRARERRREREE 
(1) * STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
(1) : *BINARY=ASCI1 NUMBER AND TYPE IT 
(1) = *CALL: 
(1) :* MOV NUMBER.-(SP) |; ;NUMBER TO BE TYPED 
a 3 TYP8N sc TYPE IT 
(1) 014000 010146 $TYPBN: MOV R1,-(SP) ::SAVE R1 ON THE STACK 
(1) 014002 016601 000006 MOV 6(SP) .R1 :GET THE INPUT NUMBER 
(1) 014006 000261 SEC ;3SET "'C'* SO CAN KEEP TRACK OF THE NUMBER OF BITS 
(1) 014010 112737 000060 014052 1S: MOVB  #'0.$BIN >SET CHARACTER TO AN ASCII ‘O''. 
(1) 014016 006101 ROL R1 : GET THIS BIT 
(1) 014020 001406 BEQ 2$ = DONE ? 
(1) 014022 105537 014052 ADCB  $BIN ::NO=-SET THE CHARACTER EQUAL TO THIS BIT 
(1) 014026 104401 014052 TYPE  ,$BIN £260. TYPE THIS BIT 
(1) 014032 000241 CLC *=CLEAR ''C'' SO CAN KEEP TRACK OF BITS 
(1) 014034 000765 BR 1$ ::G0 00 THE NEXT BIT 
(1) 014036 012601 2$: MOV (SP)+,R1 ::POP THE STACK INTO R1 
(1) 014040 016666 000002 000004 MOV 2(SP),4(SP) * ADJUST THE STACK 
(1) 014046 012616 MOV (SP)+, (SP) 
(1) 014050 000002 RTI ; :RETURN TO USER 
(1) 014052 000 000 $BIN: .BYTE 0,0 *STORAGE FOR ASCII CHAR. AND TERMINATOR 
1035 _SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) SERRE EEREEEEEREEEEEEEERAEEERAEEARERRAEKEKEEREERAERRAEERRRERRERRER 
(1) * STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) **SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) **NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) :*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) > *REPLACED WITH SPACES. 
(1) > *CALL: 
(1) 8 MOV NUM, - (SP) ::PUT THE BINARY NUMBER ON THE STACK 
CD) vt TYPDS >:GO TO THE ROUTINE 
(2) 014054 STYPDS: 
(3) 014054 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 014056 010146 MOV R1,-(SP) > :PUSH R1 ON STACK 
(3) 014060 010246 MOV R2,-(SP) > :PUSH R2 ON STACK 
(3) 014062 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
(3) 014064 010546 MOV R5.-(SP) > :PUSH R5 ON STACK 
(1) 014066 012746 020200 MOV #26200. -(SP)  ::SET BLANK SWITCH AND SIGN 
(1) 014072 016605 000020 MOV O(SP)<>R5 ::GET THE INPUT NUMBER 
(1) 014076 100004 BPL ¢ >:BR IF INPUT IS POS. 
(1) 014100 005405 NEG R5 ;*MAKE THE BINARY NUMBER POS. 
(1) 014102 112766 000055 000001 MOVB #'=,1(SP) ::MAKE THE ASCII NUMBER NEG. 
(1) 014110 005000 1$: CLR RO ;3ZERO THE CONSTANTS INDEX 
(1) 014112 012703 014270 MOV #SDBLK ,R3 -SETUP THE OUTPUT POINTER 
(1) 014116 112723 000040 MOVB = #* ~, (R3)+ *>SET THE FIRST CHARACTER TO A BLANK 
(1) 014122 005002 2$: CLR R2 *:CLEAR THE BCD NUMBER 
(1) 014124 016001 014260 MOV $DTBL (RO) .R1 =:GET THE CONSTANT 
(1) 014130 160705 3$: SUB R1,R5 -:FORM THIS BCD DIGIT 


CVMND-A MNCAA 
CVMNDA.P11 


BO PB PL LE LE LEP BP PP PPP LP LP LP LP fh FA 
ee Ne ae ee ee ee ee ee ee ee ee ee ee ee ee ee ee te 


014132 
014 


014270 


DIAGNOSTIC 
CONVERT BINARY 


000001 
000060 
000040 


000010 


177777 


014270 
000002 


177777 


177776 


000004 


MACY11 27(654) 
TO DECIMAL AND TYPE ROUTINE 


4$: 


7$: 


8$: 


9$: 


SDTBL: 


SDBLK: 
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BLT 
INC 


.BLKW 


9 
-1 (SP) 72 (R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

, SDBLK 
2(SP) ,4(SP) 
(SP)+, (SP) 


4 


;;BR IF DONE 
3; INCREASE THE BCD DIGIT BY 1 


;sADD BACK THE CONSTANT 

+s CHECK IF BCD DIGIT=0 
sFALL THROUGH IF 0 

i: STILL Se LEADING 0°S? 


:;BR IF NO 
;2YES--SET THE SIGN 
+ ¢MAKE THE BCD DIGIT ASCII 
MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
;sJUST INCREMENTING 
thay THE TABLE INDEX 
O DO THE NEXT DIGIT 
::G0 TO EXIT 
72GET THE i 
:-GO CHANGE’ T ASCII 
4hy THE LSD. THE FIRST NON-ZERO? 


I 

SISET THE TERMINATOR 
:zPOP STACK INTO R5 
3zPOP STACK INTO R3 
3zPOP STACK INTO R2 
;zPOP STACK INTO R1 
;zPOP STACK INTO RO 
3;zNOW TYPE THE NUMBER 
;ZzADJUST THE STACK 


; RETURN TO USER 
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CVMND-A MNCAA DIAGNOSTIC MACY11 27(654) 
CVMNDA.P11 SCOPE HANDLER ROUTINE SEQ 0053 

1037 _SBTTL SCOPE HANDLER ROUTINE 

(2) TT MR RARAAABAAABASBELALALAZAAEBRAZAALALALAAAAEARAERARERR RRR R RRA EASED SD SS 

(1) * STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

(1) “AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) “*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

(1) = *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) = *SW14=1 LOOP ON TEST 

(1) + *SW11=1 INHIBIT ITERATIONS 

(1) > *SWO9=1 LOOP ON ERROR 

(1) > *SWOB=1 LOOP ON TEST IN SWR<7:0> 

(1) = *CALL 

oe ** SCOPE : :SCOPE=I0T 

(1) 014300 SSCOPE : 

(1) 014300 104410 CKSWR :: TEST FOR CHANGE IN SOFT-SWR 

(2) 014302 004737 010174 JSR PC, CTRLCG 

(1) 014306 032777 040000 164624 1S: BIT #B1T14,aSWR ::LOOP ON PRESENT TEST? 

(1) 014314 001114 BNE SOVER “YES IF SW14=1 

(1) :HHARASTART OF CODE FOR THE XOR TESTERMAAAA 

(1) 014316 000416 $XTSTR: BR 6$ ;;1F RUNNING ON THE ‘‘XOR'’ TESTER CHANGE 
(1) =: THIS INSTRUCTION TO A ‘NOP'' (NOP=240) 
(1) 014320 013746 000004 MOV QYERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 014324 012737 014344 000004 MOV W5$,QMERRVEC =; SET_FOR TIMEOUT 

(1) 014332 005737 177060 TST a#177060 =TIME OUT ON XOR? 

(1) 014336 012637 000004 MOV (SP)+, aWERRVEC ::RESTORE THE ERROR VECTOR 

(1) 014342 63 BR $SSVLAD ;3GO_TO THE NEXT TEST 

(1) 014344 022626 S$: CMP (SP) +, (SP)+ “CLEAR THE STACK AFTER A TIME OUT 

(1) 014346 012637 000004 MOV (SP) +, a#ERRVEC ; RESTORE THE ERROR VECTOR 

(1) 014352 23 BR 7$ “LOOP ON THE PRESENT TEST 

(1) 014354 6$::HHAHAEND OF CODE FOR THE XOR TESTERAMMMM 

(1) 014354 032777 000400 164556 BIT #B1T08,aSWR ;:LOOP ON SPEC. TEST? 

(1) 014362 001404 BEQ 2$ :BR IF NO 

(1) 014364 127737 164550 001102 CMPB  aSWR,$TSTNM *:O0N THE RIGHT TEST?  SWR<7:0> 

(1) 014372 001465 BEQ SOVER ::BR IF YES 

(1) 014374 105737 001103 2$: TSTB =‘ $ERFLG >:HAS AN ERROR OCCURRED? 

(1) 014400 001421 BEQ 3$ -:BR IF NO 

(1) 014402 123737 001115 001103 CMPB  $ERMAX.SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 014410 101015 BHI $ -:BR IF NO 

(1) 014412 032777 001000 164520 BIT #B1T09,aSwR >:LOOP ON ERROR? 

(1) 014420 001404 BEQ 4 ::BR IF NO 

(1) 014422 013737 001110 001106 7S: MOV S$LPERR,$LPADR ::SET LOOP ADDRESS TO LAST SCOPE 

(1) 014430 46 BR SOVER 

(1) 014432 105037 001103 4$: CLRB = $ERFLG ;3ZERO THE ERROR FLAG 

(1) 014436 005037 001160 CLR $TIMES LEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 014442 15 BR 1$ > :ESCAPE TO THE NEXT TEST 

(1) 014444 032777 004000 164466 3$: BIT #B1T11,aSWR i: INHIBIT ITERATIONS? 

(1) 014452 001011 BNE 1$ “BR IF YES 

(1) 014454 005737 001176 TST $PASS i31F FIRST PASS OF PROGRAM 

(1) 014460 001406 BEQ 1$ INHIBIT ITERATIONS 

(1) 014462 005237 001104 INC SICNT >: INCREMENT ITERATION COUNT 

(1) 014466 023737 001160 001104 CMP STIMES,SICNT CHECK THE NUMBER OF ITERATIONS MADE 
(1) 014474 002024 BGE SOVER “BR IF MORE ITERATION REQUIRED 

(1) 014476 012737 000001 001104 1$: MOV #1,$1CNT * =REINITIALIZE THE ITERATION COUNTER 


CVMND-A MNCAA 
CVMNDA .P11 
(1) 014504 
(1) 014512 
(1) 014516 
(1) 014524 
(1) 014530 
(1) 014534 
(1) 014540 
(1) 014546 
(1) 014554 
(1) 014560 
(1) 014562 
1050 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 014564 
(1) 014564 
(3) 014566 
(3) 014572 
(3) 014600 
(3) 014606 
(3) 014614 
(3) 014620 
(3) 014622 
3) 014626 
(3) 014630 
(3) 014632 
(1) 014634 
(1) 014640 
(1) 014642 
(1) 014650 
(1) 014654 
(1) 014660 
(1) 014666 
(1) 014674 
(1) 014702 
(1) 014704 
(1) 014710 
(1) 014714 
(1) 014714 
(1) 014722 
(1) 014724 
(1) 014732 
(1) 014736 
(1) 014737 


DIAGNOSTIC 
SCOPE HANDLER ROUTINE 


013737 


104410 


122737 
1007 


00100 

113737 

004737 
000 


000 


014562 


010174 


0000 
014630 
002556 


015016 
001165 
000001 


001114 
017572 


MACY11 27(654) 


001160 
001174 


001115 
164366 


010404 
014630 
002536 


164272 


001116 
001114 
164236 


001210 
014736 


$SVLAD: 


SOVER: 


SMX CNT : 


~ SBTTL 


 . 
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RT 
2000 


ERROR HANDLER ROUTINE 


SMXCNT ,STIMES eSET NUMBER OF ITERATIONS TO DO 
STSTNM ;COUNT TEST NUMBERS 

STSTNM,STESTN :;SET TEST NUMBER IN APT MAILBOX 

(SP) ,SLPADR ;;SAVE SCOPE LOOP ADDRESS 

(SP) ,SLPERR ;;SAVE ERROR LOOP ADDRESS 

SESCAPE ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 


#1 , SERMAX ;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 

$SLPADR, (SP) ;;FUDGE RETURN ADDRESS 

scFIXES PS 

33MAX. NUMBER OF ITERATIONS 


SRS SIIUISISIOIIOIDIEIIOIDISIAIIIIDIDIIIOIOIDIIOIOIDIDIOIOIOIDIOIOIOIIIOIOITIOI IOI TTT TOT TI TE 
>*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 
; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

HALT ON ERROR 


SERROR: 


10$: 


$: 


Noo 
wr 
1 AW 


20$: 


21$: 


INHIBIT ERROR TYPEOUTS 


LOOP ON ERROR 
N : ;ERROR=EMT AND N=ERROR ITEM NUMBER 
:; TEST FOR CHANGE IN SOFT-SWR 
PC,CTRLCG ;TEST FOR CTRL C/G 
MASKNM ,BADUNT 
MASKNM, 11 :GET CURRENT UNIT 
#0,UNITBD :PRIME THE UNIT &@ 
$ sMOVE OUT 
12$ ;BR WHEN DONE 
UNI TBD ; UPDATE VALUE 
10$ 
SERFLG ¢3SET THE ERROR FLAG 
7$ :DON'T LET THE FLAG GO TO ZERO 
STSTNM,aDISPLAY ; 3DISPLAY TEST NUMBER AND ERROR FLAG 
SERTTL 3 INC THE ERROR COUNT 
(SP) ,SERRPC GET ADDRESS OF ERROR INSTRUCTION 
#2, SERRPC 
@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
#B1T13,aSWR :3SKIP TYPEOUT IF SET 
20$ ;SKIP TYPEOUTS 
ere 260 TO USER ERROR ROUTINE 
HAPTENV, SENV ; RUNNING IN APT MODE 
$ >:;NO,SKIP APT ERROR REPORT 
$ITEMB,21$ ::SET ITEM NUMBER AS ERROR NUMBER 
Seaman ; REPORT FATAL ERROR TO APT 
0 


SEQ 0054 


D 5 
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CVMNDA P11 ERROR HANDLER ROUTINE SEQ 0055 

(1) 014740 00077 223: BR 223 :;APT ERROR LOOP 

014742 005777 164172 2$: TST aSwR : HALT ON ERROR 

014746 100002 BPL 3$ >:SKIP IF CONTINUE 
(1) 014750 000000 HALT *:HALT ON ERROR! 
(1) 014752 104410 CKSWR >: TEST FOR CHANGE IN SOFT-SWR 
(1) 014754 032777 001000 164156 3$: BIT #B1T09,aSWR >:LOOP ON ERROR SWITCH SET? 
(1) 014762 00140 BEQ 4$ ::BR IF NO 
(1) 014764 013716 001110 MOV $LPERR, (SP) : = FUDGE RETURN FOR LOOPING 
(1) 014770 005737 001162 4$: TST $ESCAPE >:CHECK FOR AN ESCAPE ADDRESS 
(1) 014774 001402 BEQ 5% ::BR IF NONE 
) 014776 013716 001162 “ MOV SESCAPE , (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 015002 022737 006522 000042 CMP W#SENDAD,a#42 =: sACT-11 AUTO-ACCEPT? 
(1) 015010 001001 BNE 6$ : :=BRANCH IF NO 
(1) 015012 000000 HALT YES 
(1) 015014 6$: 
(1) 015014 000002 RTI : sRETURN 
051 _SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) SRR EEEREREREREEREKEKEEEEEKKEEEREREEREERERREREKEERREE 
(1) "THIS ROUTINE USES THE ‘ITEM CONTROL BYTE'’ (SITEMB) TO DETERMINE WHICH 
(1) **ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ ($ERRTB), 
C) “*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 015016 SERRTYP: 
(1) 015016 104401 001165 TYP .$CRLF ::""CARRIAGE RETURN'' & "LINE FEED"' 
(1) 015022 010046 MOV RO, -(SP) =: SAVE RO 
(1) 015024 005000 CLR RO -:PICKUP THE ITEM INDEX 
(1) 015026 153700 001114 BISB a#$ITEMB,RO 
(1) 015032 001004 BNE 1$ ::1F ITEM NUMBER IS ZERO, JUST 
(1) -TYPE THE PC OF THE ERROR 
(2) 015034 013746 001116 MOV SERRPC ,-(SP) “SAVE $SERRPC FOR TYPEOUT 
(2) «ERROR ADDRESS 
<2) 015040 104402 TYPOC ;:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 015042 4 10$ OUT 
(1) 015044 005300 1$: DEC RO ; ADJUST THE INDEX SO THAT IT WILL 
(1) 015046 006300 ASL RO 3 WORK FOR THE ERROR TABLE 
(1) 015050 006300 ASL RO 
(1) 015052 006300 ASL RO 
(1) 015054 062700 001252 ADD #SERRTB,.RO FORM TABLE POINTER 
(1) 015060 012037 015070 MOV (RO) +,2$ -=PICKUP ‘ERROR MESSAGE’’ POINTER 
(1) 015064 0014 BEQ 3$ :;SKIP TYPEOUT IF NO POINTER 
(1) 015066 104401 TYPE iE TYPE THE ‘ERROR MESSAGE'' 
(1) 015070 2$: .WORD 0 ;:'ERROR MESSAGE'’ POINTER GOES HERE 
(1) 015072 104401 001165 TYPE “$CRLF : CARRIAGE RETURN'’ & ‘LINE FEED’’ 
(1) 015076 012037 015106 3$: MOV (RO) +,4$ “PICKUP ‘DATA HEADER'’ POINTER 
(1) 015102 001404 BEQ 5$ SKIP TYPEOUT IF 0 
(1) 015104 104401 TYPE -: TYPE THE ‘DATA HEADER’’ 
(1) 015106 4$: .WORD 0 :;' DATA HEADER'’ POINTER GOES HERE 
(1) 015110 104401 001165 TYPE ,SCRLF >:""CARRIAGE RETURN'' & "LINE FEED’ 
(1) 015114 010146 5$: MOV -(SP) > SAVE R1 
(1) 015116 012001 MOV tRO)+. R1 ;;PICKUP "DATA TABLE'* POINTER 
(1) 015120 001415 BEQ 9$ :BR IF NO DATA TO BE TYPED 
(1) 015122 012000 MOV (RO) +,RO : PICKUP ‘DATA FORMAT’’ POINTER 


CVMND-A MNCAA 
CVMNDA .P11 


a te, a i i a, ee 
ee ae eed od 3 3) 0) 
Ne Ne Ne ee ee ee ee ee ee 


Fe ee ee, te, a i ee i a i 
Ww — es = QO SO os 
Nee a a ee Ne ee Ne ee ee es ee 


015124 


015146 
015152 


015154 
015156 
015160 


015164 
015166 


015172 
015200 


015242 


015244 


015324 


DIAGNOST 


IC 


MACY11 27(654) 


ERROR MESSAGE TYPEOUT ROUTINE 


105720 


020040 
015172 


012737 
012737 
010046 


015166 


001165 
000 


015336 
000340 


163712 
015342 
015244 


015336 
015342 
015342 
015342 


163644 


015172 
000340 


000024 
000026 


000024 


000024 


000024 
000026 


6$: TSTB (RO) + 
BNE 7$ 
MOV a(R1)+,-(SP) 
TYPOC 
8$ 
7$: 
V a(R1)+,-(SP) 
TYPDS 
8$: TST (R1) 
BEQ 9$ 
TYPE ,11$ 
BR 6$ 
9$: MOV (SP)+,R1 
10$: MOV (SP)+,RO 
TYPE , CRLF 
RTS C 
11$: ASCE Ff F 
EVEN 


= 
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; ; 3 OCTAL OR 'DECIMAL"’ 
;BR IF DECIMAL 
“ TSAVE a(R1)+ FOR TYPEOUT 
3:GO TYPE=-OCTAL ASCII(ALL DIGITS) 


37SAVE @(R1)+ FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 
a1 THERE ANOTHER NUMBER? 


;BR IF NO 
: TYPE TWO(2) SPACES 


hid pth R1 
; RESTORE RO 
it ne RETURN’’ & ‘LINE FEED"’ 


RE 
::TWO(2) SPACES 


-EVE 
.SBTTL POWER DOWN AND UP ROUTINES 


5 RARER RRR ERR EERE EREEREEEREEKEEREREERERRRRRERER RRR RRR RRR 


;POWER DOWN ROUTINE 
SPWRDN: MOV 


“ POWER UP ROUTINE 
$PWRUP : ASILLUP ,a#PWRVEC Bt FAST DOWN 


1$: 


#SILLUP ,a#PWRVEC Rit 4 - FAST UP 


#340, aAPWRVEC+2 ; 


SP, $SAVR6 


:;PUSH RO ON STACK 
::;PUSH R1 ON STACK 
:zPUSH R2 ON STACK 
:;PUSH R3 ON STACK 
:;PUSH R4 ON STACK 
es R5 ON STACK 
; sPUSH @SWR ON STACK 


; SAVE SP 
#SPWRUP ,a#PWRVEC ;;SET UP VECTOR 


oe 


; HANG UP 


MAAARASAASSAAASASESALSEEESESE SELES EERE ERR RRR RRR RRA RRR RRR ARRAS SDS DS, 


$SAVR6, SP 
6 


(SP) +, aSWR 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


;;WAIT LOOP FOR THE TTY 
;;WAIT FOR THE INC 
WOR 


D 
;;POP STACK INTO a@SwR 
;;POP STACK INTO R5 
;;POP STACK INTO R4 
;;POP STACK INTO R3 
;;POP STACK INTO R2 
+ sPOP STACK INTO R1 
OP STACK INTO RO 


#SPWRDN, @#PWRVEC :;SET UP THE POWER DOWN VECTOR 


#340, a#PWRVEC+2 


7;PRIO:7 
;;REPORT THE POWER FAILURE 


SEQ 0056 


, ¥F 
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CVMND-A MNCAA DIAGNOSTIC MACY11 27(654) 
CVMNDA.P11 POWER DOWN AND UP ROUTINES SEQ 0057 
(1) 015326 015344 SPWRMG: .WORD SG ;;POWER FAIL MESSAGE POINTER 
(1) 015330 012716 MOV (PC) +, SP) ;;RESTART AT BEGIN 
(1) 015332 001502 SPWRAD: .WORD BEGIN ;;RESTART ADDRESS 
(1) 015334 000002 RT] 
(1) 015336 SILLUP: HALT +3 THE POWER UP SEQUENCE WAS STARTED 
(1) 015340 000776 BR - sé aut te THE POWER DOWN WAS COMPLETE 
(1) 015342 SSAVR6: 0 T THE SP HERE 
1053 015344 005015 042522 052123 PWRMSG: .ASTIZ <15><12>/RESTARTING” AFTER A POWER FAILURE/<15><12><12> 
015352 051101 044524 043516 
015360 040440 052106 051105 
015366 0440 050040 053517 
015374 051105 043040 044501 
015402 052514 042522 005015 
015410 000012 
1054 -EVEN 
1055 
33 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) STARA RAE RERRAEREREREEREAEAERERAERERRERRERRRRRARRRRRRE REED 
(7) :*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) >*OCTAL (ASCII) NUMBER AND TYPE IT. 
Sf eee HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
3 *CALL: 
(1) ;* MOV NUM , = (SP) : ;NUMBER TO BE TYPED 
(1) :* TYPOS ;;CALL FOR TYPEOUT 
(1) ;* BYTE N :z;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) :* BYTE ™ ::M=1 OR O 
(1) sf 3;1=TYPE LEADING ZEROS 
Hi 38 3, 0=SUPPRESS LEADING ZEROS 
*“* 
(1) > *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) ;*$TYPOS OR $TYPOC 
(1) >*CALL: 
(1) ;* MOV NUM ,- (SP) : ;SNUMBER TO BE TYPED 
aa :* TYPON :;;CALL FOR TYPEOUT 
** 
i? awe HERE FOR TYPEOUT OF A 16 BIT NUMBER 
:*CALL: 
(1) ;* MOV NUM , = (SP) ; ;SNUMBER TO BE TYPED 
aa ;* TYPOC :;;CALL FOR TYPEOUT 
(1) 015412 017646 STYPOS: MOV a( SP) ,- (SP) 3;;PICKUP THE MODE 
(1) 015416 116637 1 015635 MOVB 1(SP) , SOF ILL + ¢ LOAD ZERO FILL SWITCH 
(1) 015424 112637 015637 MOVB (SP)+,S$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
(1) 015430 062716 ADD #2, (SP) : s ADJUST RETURN ADDRESS 
(1) 015434 BR $TY 
(1) 015436 112737 000001 015635 $TYPOC: MOVB #1 ,S0F ILL :;SET THE ZERO FILL SWITCH 
(1) 015444 112737 000006 015637 MOVB #6, SOMODE +1 3:SET FOR SIX(6) DIGITS 
(1) 015452 112737 000005 015634 $TYPON: MOVB #5,S0CNT ;;SET THE ITERATION COUNT 
(1) 015460 010346 MOV R3,-(SP) : SAVE R3 
(1) 015462 010446 MOV R4,-(SP) Z SAVE R4 
(1) 015464 010546 MOV R5,~-(SP) ; SAVE R5 
(1) 015466 1137 015637 MOVB SOMODE +1 ,R4 :;GET THE NUMBER OF DIGITS TO TYPE 
(1) 015472 005404 NEG R4 


—_—J 3 —w 
ar FR RRRRRARFROOOR RRA AAA AAAAAAAAAAAF AAA AAAA AAO AAA OAOAOORCR 


ee NNN Nee le ee ae a OO es we we we we ee eS we wwe ewe wwe www YS YESS YE YY YY YE I Ow 


CVMND-A MNCAA 
CVMNDA.P11 


015474 


DIAGNOSTIC 


BINARY 


000006 
015636 
015635 
000912 


015636 
177770 


015634 


000002 000004 


MACY11 27(654) 
TO OCTAL (ASCII) AND TYPE 


.. 
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ADD #6 ,R4 

MOVB R4 , SOMODE 
MOVB SOFILL,R4 
MOV 12(SP) ,R5 


;; SUBTRACT IT FOR MAX. ALLOWED 
;;SAVE IT FOR USE 

;3GET THE ZERO FILL SWITCH 
;;PICKUP THE INPUT NUMBER 


CLR R3 3;;CLEAR THE OUTPUT WORD 
1$: ROL R5 ; ROTATE MSB INTO ‘'C’' 
BR 3$ ;:GO DO MSB 
2$: ROL R5 >;FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 :GET LSB OF THIS DIGIT 
DECB SOMODE :; TYPE THIS DIGIT? 
BPL 7$ "CBR IF NO 
BIC #177770,R3 GET RID OF JUNK 
BNE 4$ :; TEST FOR 0 
TST R4 ;; SUPPRESS THIS 0? 
BEQ 5$ sa IF YES 
4$: INC R4 : DON'T SUPPRESS ANYMORE 00'S 
BIS #°O,R3 :;MAKE THIS DIGIT ASCII 
5$: BIS #’  R3 7zMAKE ASCII IF NOT ALREADY 
MOVB R3,8$ 3; SAVE FOR TYPING 
TYPE ,8$ :;GO TYPE THIS DIGIT 
7$: DECB SOCNT 3; COUNT BY 1 
BGT ;;BR IF MORE TO DO 
BLT 6$ Sa IF DONE 
INC R4 >; INSURE LAST DIGIT ISN'T A BLANK 


BR 2$ ;;GO DO THE LAST DIGIT 


6$: MOV (SP)+,R5 : RESTORE RS5 
MOV (SP) +,R4 ; RESTORE R4 
MOV (SP)+,R3 ; RESTORE R3 
MOV 2(SP),4(SP) :;SET THE STACK FOR RETURNING 
MOV (SP)+, (SP) 
RTI 7 RETURN 
8$: -BYTE 0 ;; STORAGE FOR ASCII DIGIT 
BYTE 0 ;; TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 :Z;0CTAL DIGIT COUNTER 
SOFILL: .BYTE 0 +s ZERO FILL SWITCH 
SOMODE: .WORD 0 sNUMBER OF DIGITS TO TYPE 
: xe * CAUTION THE FIRST GL ARE OVERLAYED TO LOWER INTERRUPT LEVEL 
;THE OVERLAY OCCURS AFTER A "SETUP" CODE 
“SBTTL TYPE ROUTINE 


Mere eit iii iii iii iit iti i iii iii 

: *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 hit 
3*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


> *NOTE1: 

;*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

-t 


;*CALL: 
:*1) USING A TRAP INSTRUCTION 
;@ TYPE »ME SADR 


;*OR 


;:MESADR IS FIRST ADDRESS OF “N ASCIZ STRING 


CVMND-A MNCAA 
CVMNDA.P11 


ee ee. Se Te ee ae ee ae ee, a a, Ee et ae a ee a ee, ate eee eee ee eae ee ee eee eee 
ee eee ee ee eee ee ee ee ee a a a a a_i ee 


~7 


DIAGNOSTIC 
TYPE ROUTINE 


105737 
100002 
000000 


000 
105777 


001157 


000002 
000001 


000100 


015710 
017562 


000040 


000002 
000011 
000200 


016116 


016052 
001156 


001154 
000001 


016052 
016116 


a) 
NWNO 


00004 
0160 
00000 


163072 


MACY11 27(654) 


001210 
001211 


001211 


016116 


61$: 
62$: 


2$: 
60$: 
3$: 
4$: 


S$: 
6$: 


7$: 


s;HORIZONTAL TAB 


8$: 
9$: 


STYPEC: 


H 5 
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TYPE 
ME SADR 


BR 
TSTB 


$STPFLG 
1$ 


3$ 

RO,-(SP) 

@2(SP) ,RO 
MAPTENV, SENV 
62$ 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
PC,SATYS 


0 

HAPTCSUP ,SENVM 
60$ 

(RO) +,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
MHT , (SP) 

8$ 
ACRLF , (SP) 
5$ 


(SP) + 


— 


2 
PC ,STYPEC 
SFILLC,(SP)+ 


2$ 
SNULL , ~ (SP) 
1(SP) 

6$ 

PC .STYPEC 
SCHARCNT 

7$ 
PROCESSOR 
#° (SP) 

PC ,STYPEC 
#7, SCHARCNT 
9$ 

(SP) + 


2$ 
a$TPs 


i315 THERE A TERMINAL? 
; IF YES 


; HALT HERE IF NO TERMINAL 
; LEAVE 


- = SAVE RO 
+ GET ADDRESS OF ASCIZ STRING 
7 RUNNING IN APT MODE 

:NO,GO CHECK FOR APT CONSOLE 
«SPOOL MESSAGE TO APT 
:;NO,GO CHECK FOR CONSOLE 
3: SETUP MESSAGE re § FOR APT 
+ ¢ SPOOL MESSAGE TO AP 

;MESSAGE ADDRESS 
: APT CONSOLE SUPPRESSED 
:;YES,SKIP TYPE OUT 
>;PUSH CHARACTER TO BE TYPED ONTO STACK 
:;BR IF IT ISN'T THE TERMINATOR 
37 1F TERMINATOR POP IT OFF THE STACK 
; ;RESTORE RO 
¢ ¢ADJUST RETURN PC 

TURN 


; ;BRANCH IF <HT> 
; ;BRANCH IF NO? <CRLF> 


:;POP <CR><LF> EQUIV 
sz TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 
;:GET NEXT CHARACTER 
;:;GO TYPE THIS CHARACTER 
3318S IT TIME FOR FILLER CHARS.? 
;;1F NO GO GET NEXT CHAR. 
;;GET # OF FILLER CHARS. NEEDED 
3;AND THE NULL CHAR. 
sho B A NULL NEED TO BE TYPED? 
F NO--GO POP THE NULL OFF OF STACK 
::GO TYPE A NULL 


;;DO NOT COUNT AS A COUNT 
; =LOOP 


: REPLACE TAB WITH SPACE 

;: TYPE A SPACE 

; BRANCH IF NOT AT 

$3 STOP 

;z;POP SPACE OFF STACK 

:;GET NEXT CHARACTER 

:;WAIT UNTIL PRINTER IS READY 


SEQ 0059 


=. 
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CVMNDA P11 TYPE ROUTINE SEQ 0060 
(1) 016056 100375 BPL STYPEC 
(1) 016060 116677 000002 163064 MOVB  2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 016066 122766 000015 000002 CMPB ~—s- ACR, 2( SP) :31S CHARACTER A CARRIAGE RETURN? 
(1) 016074 001003 BNE 1$ “BRANCH IF NO 
(1) 016076 105037 016116 CLRB $CHARCNT ;: YES==CLEAR CHARACTER COUNT 
(1) 016102 000406 BR STYPEX T 
(1) 016104 122766 000012 000002 1$: CMPB ss HLF, 2(SP) IS CHARACTER A LINE FEED? 
(1) 016112 001402 BEQ $TYPEX - BRANCH IF YES 
(1) 016114 105227 INCB = (PC) + =:COUNT THE CHARACTER 
(1) 016116 000000 SCHARCNT:.WORD 0 =: CHARACTER COUNT STORAGE 
) 016120 000207 S$TYPEX: RTS PC 
1060 .SBTTL TTY INPUT ROUTINE 
(2) SL RARER AERA EAEEAKARRARRAERRARERRAEREAERRKRERRAERRRERER RH 
(1) -ENABL LSB 
(1) 016122 000000 S$TKCNT: .WORD 0 : NUMBER OF ITEMS IN QUEUE 
(1) 016124 000000 S$TKQIN: .WORD 0 >: INPUT POINTER 
(1) 016126 000000 $TKQOUT: .WORD 0 > :QUTPUT POINTER 
(1) 016130 000040 S$TKQSRT: .BLKB 32. >: TTY KEYBOARD QUEUE 
(1) 016170 $TKQEND=. 
(1) :*TK INITIALIZE ROUTINE 
(1) >*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
) -*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
(1) > *CALL: 
(1) :* JSR PC, $TKINT 
a3 ;* RE TURN 
(1) 016170 005037 016122 $TKINT: CLR STKCNT ::CLEAR COUNT OF ITEMS IN QUEUE 
(1) 016174 012737 016130 016124 MOV #STKQSRT.$TKQIN ::MOVE THE STARTING ADDRESS OF THE 
(1) 016202 013737 016124 016126 MOV STKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
(1) 016210 012737 016240 000060 MOV #STKSRV,@ATKVEC 3; INITIALIZE THE KEYBOARD VECTOR 
(1) 016216 012737 000200 000062 MOV #200, @ATKVEC+2 3 ;"BR'’ LEVEL 4 
(1) 016224 005777 162716 TST a$TkB *CLEAR DONE FLAG 
(1) 016230 012777 000100 162706 MOV #100, a$TKS :: ENABLE TTY KEYBOARD INTERRUPT 
(1 016236 000207 RTS PC > :RETURN TO CALLER 
(1) :*TK SERVICE ROUTINE 
(1) >*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
(1) > *BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
(1) >*]T IN THE QUEUE. 
(1) >*]F THE CHARACTER IS A “‘CONTROL-C'' (*C) $TKINT IS CALLED AND 
+f ; *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C’’ RESTART ADDRESS (MTEST1) 
(1) 016240 117746 162702 $TKSRV: MOVB  a$TKB,-(SP) ::PICKUP THE CHARACTER 
(1) 016244 042716 177600 BIC #°C177, (SP) >: STRIP THE JUNK 
(1) 016250 021627 000003 CMP (SP) #3 -:1S IT A CONTROL C? 
(1) 016254 001007 BNE i$ : ;BRANCH IF NO 
(1) 016256 104401 017410 TYPE SSCNTLC >: TYPE A CONTROL=C (*C) 
(1) 016262 004737 016170 JSR PC $TKINT -: INIT THE KEYBOARD 
(1) 016266 005726 TST (SP) + >: CLEAN UP STACK 
(1) 016270 000137 002314 JMP MTEST1 >: CONTROL C RESTART 


ee ae ee ee tn ae a, ee, ee, ae, ee, ae, ee, ae, a, ee, ae a, a, fe ae ae ae, ae ae, a a ee ae ee eee eee eee eee ee ee eee 
ee ee Ne a a ee er a a a a a a a a a a a a a a a a a a a a a a a a ee es ae 
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016274 
016300 
016302 
016310 


016312 


016510 


DIAGNOSTIC 
TTY INPUT ROUTINE 


021627 
001004 
022737 
001500 


022737 


022737 
001124 


000007 
000176 


000040 
017404 


000023 
162600 
162572 
162566 
177600 
000021 
000100 


016122 
000140 


000175 
000040 
177472 
016124 
016124 


016130 


000176 
162452 
162446 


177600 
000007 


MACY11 27(654) 


001140 


016122 


162544 


016170 
016124 


001140 


1$: CMP (SP) 47 
BNE 2$ 
CMP A#SWREG, SWR 
BEQ 6$ 
23: 
CMP #32. .$TKCNT 
BNE 3$ 
TYPE ,SBELL 
TST (SP) + 
BR 5$ 
3$: CMP (SP) 423 
BNE 32$ 
CLR asTKS 
TST (SP) + 
31$: TSTB a$TKS 
BPL 31$ 
MOVB a$TkKB8,-(SP) 
BIC #*C177, (SP) 
CMP (SP)+, #2) 
BNE 31$ 
a3} #100, a$TKS 
32$: INC STKCNT 
CMP (SP) ,4140 
BLT 4 
CMP (SP) 4175 
BGT 4$ 
BIC #40, (SP) 
4$: MOVB (SP)+,@$TKQIN 
INC STKQIN 
CMP STKQIN, #STKQEND 
BNE 5$ 
MOV #STKQSRT.STKQIN 
5$: RT] 


Jj 3 
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TS i A CONTROL G? 


H IF NO 
SOFT=SWR SELECTED? 
TO SWR CHANGE 


e315 THE QUEUE FULL? 
;BRANCH IF NO 
::RING THE TTY BELL 
ate CHARACTER OFF OF STACK 


IT 

:31S IT A CONTROLS? 
CH IF NO 

::DISABLE TTY KEYBOARD INTERRUPTS 

;;CLEAN CHAR OFF STACK 

;7;WAIT FOR A CHAR 

;;LOOP UNTIL ITS _ 


SIS IT A CONTROL-Q? 
; BRANCH IF NO 
$+ 5 om TTY KEYBOARD INTERRUPTS 


33RET 
set THIS CHARACTER 

S IT UPPER CASE? 

: BRANCH IF YES 

3315 IT A Ta CHAR? 
:sMAKE IT UPPER CASE 
;zAND PUT IT IN QUEUE 
;;UPDATE THE POINTER 
+360 OFF THE END? 


;BRANCH IF NO 
; RESET THE POINTER 
;RETURN 


Ite i iii ii iii iii iii iii 
« &SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 

:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SUIT CH REGISTER TRAP 
>*CALL WHEN OPERATING IN TTY INTERRUPT MODE . 


$CKSWR: CMP #SWREG, SWR 
BNE 1 


5$ 
TSTB = @STKS 
BPL 5$ 
MOVB  a$TKB,-(SP) 
BIC #*C177. (SP) 
CMP (SP) #7 
BNE 2$ 


31S THE SOFT-SWR SELECTED 
T IF NO 


TEX T 
::1S A CHAR WAITING? 
35° - EXIT 

YES 


::MAKE IT 7-BIT ASCII 

;;1S IT A CONTROL-G? 

se IF NOT, PUT IT IN THE TTY QUEUE 
STAND EXIT 


JARRE AREER AERA AARAAERARAAAAARRAAAERAAERAEEAAERAEK ERD 


® CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
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CVMNDA P11 TTY INPUT ROUTINE SEQ 0062 
(1) :*CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
(1) 016512 123727 001134 000001 6S: (MPR —s- SAUTOB,, #1 ::ARE WE RUNNING IN AUTO-MODE? 

(1) 016520 001674 BEQ 2$ ::BRANCH IF YES 

(1) 016522 005726 TST (SP) + *:CLEAR CONTROL=G OFF STACK 

(1) 016524 004737 016170 JSR PC .$TKINT *:FLUSH THE TTY INPUT QUEUE 

(1) 016530 005077 162410 CLR asTKs *:DISABLE TTY KEYBOARD INTERRUPTS 
) 016534 112737 000001 001135 MOVB #1,$INTAG >:SET INTERRUPT MODE INDICATOR 
(1) 016542 104401 017422 TYPE ,SCNTLG ::ECHO THE CONTROL=G (4G) 

(1) 016546 104401 017427 SGTSWR: TYPE ,SMSWR >: TYPE CURRENT CONTENTS 

(2) 016552 013746 000176 MOV SWREG, - (SP) >:SAVE SWREG FOR TYP 

(2) 016556 104402 TYPOC 3:60 TYPE=-OCTAL ASCII (ALL DIGITS) 
(1) 016560 104401 017440 TYPE  SMNEW > = PROMP 

(1) 016564 005046 19$: CLR -(SP) >: CLEAR COUNTER” 

(1) 016566 005046 CLR -(SP) >: THE NEW SWR 

(1) 016570 105777 162350 7$: TSTB =—s-_ @STKS *:CHAR THERE? 

sh 016574 100375 BPL 7$ ::]F NOT TRY AGAIN 

(1) 016576 117746 162344 MOVB  a$TKB,-(SP) ::PICK UP CHAR 

) 016602 042716 177600 BIC #*C177, (SP) >:MAKE IT 7-BIT ASCII 

(1) 016606 021627 000003 CMP (SP) #3 ::1S IT A CONTROL-C? 

(1) 016612 001015 BNE 9$ > :;BRANCH IF NOT 

(1) 016614 104401 017410 TYPE /SCNTLC =:YES, ECHO CONTROL-C (*C) 

(1) 016620 062706 000006 ADD #6, SP >:CLEAN UP STACK 

(1) 016624 123727 001135 000001 CMPB = S$INTAG, #1 > ;REENABLE TTY KEYBOARD INTERRUPTS? 
(1) 016632 001003 BNE x3 : ;BRANCH IF NO 

(1) 016634 012777 000100 162302 MOV #100, a$TKS -:ALLOW TTY KEYBOARD INTERRUPTS 
() 016642 000137 002314 8S: JMP MTEST1 ::CONTROL=C RESTART 

(1) 

(1) 016646 021627 000025 9$: CMP (SP) ,#25 ::1S IT A CONTROL-U? 

(1) 016652 001005 BNE 10$ : :BRANCH IF NOT 

<1) 016654 104401 017415 TYPE »SCNTLU >:YES, ECHO CONTROL-U (*U) 

(1) 016660 062706 000006 20$: ADD #6,SP >: ]GNORE PREVIOUS INPUT 

() 016664 000737 BR 19$ =:LET'S TRY IT AGAIN 

(1) 

(1) 016666 021627 000015 10$: CMP (SP) 415 7:18 IT A <CR>? 

(1) 016672 001022 BNE 16$ : BRANCH IF NO 

(1) 016674 005766 000004 TST 4 (SP) >:YES, IS IT THE FIRST CHAR? 
(1) 016700 001403 BEQ 11$ 33 CH IF YES 

(1) 016702 016677 000002 162230 MOV 2(SP) ,aSwR >: SAVE NEW SWR 

(1) 016710 062706 000006 11$: ADD #6,SP >:CLEAR UP STACK 

(1) 016714 104401 001165 14$: TYPE ,SCRLF :;ECHO <CR> AND <LF> 

(1) 016720 123727 001135 000001 CMPB = $INTAG,#1 > RE-ENABLE TTY KBD INTERRUPTS? 
(1) 016726 001003 BNE 15$ 3 CH IF NOT 

(1) 016730 012777 000100 162206 MOV #100, a$TKS > >RE-ENABLE TTY KBD INTERRUPTS 
(1) 016736 000002 15$: ATI > ; RETURN 

(1) 016740 004737 016052 16$: JSR PC. $TYPEC ::ECHO CHAR 

(1) 016744 021627 000060 CMP (SP) ,#60 *:CHAR < 0? 

(1) 016750 002420 BLT 18$ > :BRANCH IF YES 

(1) 016752 021627 000067 CMP (SP) ,#67 *:CHAR > 7? 

(1) 016756 003015 BGT 18$ > :BRANCH IF YES 
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CVMNDA.P11 TTY INPUT ROUTINE SEQ 0063 

(1) 016760 042726 000060 BIC #60, (SP)+ ;3STRIP=OFF ASCII 

(1) 016764 005766 000002 TST 2(SP) -I1S THIS THE FIRST CHAR 
016770 001403 BEQ 17$ : :BRANCH IF YES 
016772 006316 ASL (SP) *:NO, SHIFT PRESENT 
016774 006316 ASL (SP) :: CHAR OVER TO MAKE 
016776 006316 ASL (SP) >: ROOM FOR NEW ONE. 
017000 005266 000002 17$: ‘INC 2(SP) > :KEEP COUNT OF CHAR 
017004 056616 177776 BIS 2 (SP) , (SP) ;3SET IN NEW CHAR 
017010 000667 BR >:GET THE NEXT ONE 
017012 104401 001164 18$: ‘TYPE Sours =: TYPE ?<CR><LF> 
017016 000720 ies BR 20$ =:SIMULATE CONTROL-U 


STARA REAR REE EEE ARERR ERAERERERREREEKEERERRERERKEE 


:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ee ee ae ee ae et tot et et ete tet ete 
ce I) ek a ad ad od ot od 
ee ee ee ee ee ee” he ee ee a a a ee oe ee ee ee ee ee 


;*CALL: 
;* RDCHR 3:GET A CHARACTER FROM THE QUEUE 
;* RETURN HERE 3; CHARACTER IS ON THE STACK 
;* :;WITH PARITY BIT STRIPPED OFF 
017020 011646 SRDCHR: MOV (SP) ,~=(SP) 3;zPUSH DOWN THE PC AND 
017022 016666 000004 000002 MOV 4(SP) ,2(SP) 37; THE PS 
017030 005066 000004 CLR 4 (SP) + GET READY FOR A CHARACTER 
(2) 017034 005046 CLR ~ (SP) ;PUT NEW PS ON STACK 
(2) 017036 012746 017044 MOV #64$ ,-(SP) > PUT NEW PC ON STACK 
(2) 017042 000002 RT] ;7;POP NEW PC AND PS 
(2) 017044 64$: 
(1) 017044 005737 016122 1$: TST STKCNT 7ZWAIT ON A CHARACTER 
(1) 017050 001775 BEQ 1$ 
(1) 017052 005337 016122 DEC STKCNT is a ie! THE COUNTER 
(1) 017056 117766 177044 000004 MOVB a$TKQOUT ,4(SP) 23GET ONE CHARACTER 
<1) 017064 005237 016126 INC $TKQOUT ;UPDATE THE POINTER 
(1) 017070 023727 016126 016170 CMP STKQOUT, WSTKQEND 33D1D IT GO OFF OF THE END? 
(1) 017076 001003 BNE 2$ ;;BRANCH IF NO 
(1) 017100 012737 016130 016126 MOV #STKQSRT, $TKQOUT 7 RESET THE POINTER 
(1) 017106 000002 e$: RTI 7 RETURN 
(2) SERRA E EERE ERAEEEEERERRERRERERAEEEEERAER KEKE 
eae sSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
** 
(1) ie RDLIN 77 INPUT A STRING FROM THE TTY 
(1) ;* RETURN HERE :ZADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3 ;* 77 TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 017110 010346 SRDLIN: MOV we f - (SP) 72 SAVE 
(1) 017112 005046 CLR (SP) 7;CLEAR THE RUBOUT KEY 
(1) 017114 012703 017344 1$: MOV WSTTYIN, R3 7IGET ADDRESS 
(1) 017120 022703 017404 2$: CMP W#STTYING32. R35 ;;BUFFER FULL? 
(1) 017124 101456 BLOS 4$ ;7BR IF YES 
(1) dats 104411 RDCHR ::GO READ ONE CHARACTER FROM THE TTY 
(1) 0171 112613 MOVB (SP)+, (R53) 3;GET CHARACT 
(1) 017132 122713 000177 10$: CMPB #177, (R3) 3:18 IT A RUBOU 
(1) 017136 001022 BNE 5$ ;;BR IF NO 
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CVMNDA P11 TTY INPUT ROUTINE SEQ 0064 
(1) 017140 005716 TST (SP) ::1S THIS THE FIRST RUBOUT? 
(1) 017142 001007 BNE 6$ >:BR IF NO 
(1) 017144 112737 000134 017342 MOVB #'\,9$ -: TYPE A BACK SLASH 
(1) 017152 104401 017342 TYPE ,9$ 
(1) 017156 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
(1) 017162 005303 6S: DEC R3 : :BACKUP BY ONE 
(1) 64 020327 017344 CMP R3,HSTTYIN i 3 STACK EMPTY? 
(1) 017170 103434 BLO 4$ ::BR IF YES 
(1) 017172 111337 017342 MOVB  (R3),9$ 3 SETUP TO TYPEOUT THE DELETED CHAR. 
(1) 017176 104401 017342 TYPE 9$ -GO TYPE 
(1) 017202 000746 BR 2$ : GO READ ANOTHER CHAR. 
(1) 017204 005716 5$: TST (SP) ;:RUBOUT KEY SET? 
(1) 017206 001406 BEQ 7$ IF NO 
(1) 017210 112737 000134 017342 MOVB #'\.9$ «TYPE A BACK SLASH 
(1) 017216 104401 017342 TYPE ,9$ 
(1) 017222 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 
(1) 017224 122713 000025 7$: CMPB so #'25,, (3) :31S CHARACTER A CTRL U? 
(1) 017230 001003 BNE RE IF NO 
(1) 017232 104401 017415 TYPE  ,$CNTLU -: TYPE A CONTROL ‘U"' 
(1) 017236 000726 BR >:GO START OVER 
(1) 017240 122713 000022 8$: CMPB ss #22, (R33) =: 7S CHARACTER A ‘*R'”? 
(1) 017244 001011 BNE 3$ > :BRANCH IF NO 
(1) 017246 105013 CLRB —s_ (R33) >:CLEAR THE CHARACTER 
(1) 017250 104401 001165 TYPE  ,$CRLF =: TYPE A ''CR'' ® ‘LF’ 
(1) 017254 104401 017344 TYPE STTYIN i TYPE THE INPUT STRING 
(1) 017260 000717 BR 2$ GO PICKUP ANOTHER CHACTER 
(1) 017262 104401 001164 4$: TYPE  ,$QUES :TYPE A '?' 
(1) 017266 000712 BR i$ CLEAR THE BUFFER AND LOOP 
(1) 017270 111337 017342 3$: MOVB _ (R3),9$ >:ECHO THE CHARACTER 
(1) 017274 104401 017342 TYPE ,9$ 
(1) 017300 122723 000015 CMPB ss #15, (R3) + ;7CHECK FOR RETURN 
(1) 017304 001305 BNE 2$ “LOOP IF NOT RETURN 
(1) 017306 105063 177777 CLRB  =s-_- = 1 (R33) i: CLEAR RETURN (THE 15) 
<1) 017312 104401 001166 TYPE ,$LF TYPE A LINE FEED 
(1) 017316 005726 TST (SP)+ >CLEAN RUBOUT KEY FROM THE STACK 
(1) 017320 012603 MOV (SP)+,R3 : REST ORE R3 
(1) 017322 011646 MOV (SP) ,-(SP) “ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 017324 016666 000004 000002 MOV 4(SP),2(SP) *: FIRST ASCII CHARACTER ON IT 
(1) 017332 012766 017344 000004 MOV WSTTYIN,4(SP) 
(1) 017340 000002 RTI : : RETURN 
(1) 017342 000 9$: BYTE 0 i: STORAGE FOR ASCII CHAR. TO TYPE 
(1) 017343 000 -BYTE 0 TERMINA 
(1) 017344 000040 STTYIN: .BLKB 32. ; ZRESERVE 32. BYTES FOR TTY INPUT 
(1) 017406 177607 000377 $BELL: .ASCIZ <207><377><377> «CODE F L 
(1) 017410 041536 005015 000 $CNTLC: -ASCIZ /*C/<15><12> — } ; CONTROL ‘*'C"’ 
(1) 017415 136 006525 000012 $CNTLU: .ASCIZ /*U/<15><12> : CONTROL 
(1) 017422 043536 005015 000 $CNTLG: .ASCIZ /*G/<15><12> *CONTROL ''G’’ 
(1) 017427 015 051412 051127 S$MSWR: .ASCIZ <15><12>/SWR = / 
(1) 017434 036440 00004 
(1) 017440 020040 042516 020127 SMNEW: .ASCIZ / NEW = 
(1) 017446 020075 000 
(1) 017452 EVEN 
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CVMNDA.P11 READ AN OCTAL NUMBER FROM THE SEQ 0065 
rr .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
(2) SL AAA AREER ERR EEE EERE AEE RRER REE AERRARR ERE AEE 
(1) >*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
(1) > *CHANGE IT TO BINARY. 
(1) > *CALL: 
(1) 3* RDOCT >;READ AN OCTAL NUMBER 
(1) ;* RETURN HERE >;LOW ORDER BITS ARE ON TOP OF THE STACK 
st ;* : HIGH ORDER BITS ARE IN $HIOCT 
(1) 017452 011646 SRDOCT: MOV (SP) ,-(SP) ;;PROVIDE SPACE FOR THE 
(1) 017454 016666 000004 000002 MOV 4(SP) ,2(SP) 33 T NUMBER 
(3) 017462 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
(3) 017464 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
(3) 017466 010246 MOV R2,-(SP) :zPUSH R2 ON STACK 
(1) 017470 104412 1$: RDLIN >;READ AN ASCIZ LINE 
(1) 017472 012600 MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
(1) 017474 005001 CLR R1 ;;CLEAR DATA WORD 
(1) 017476 005002 CLR R2 
(1) 017500 112046 2$: MOVB (RO)+,-(SP) :z;PICKUP THIS CHARACTER 
(1) 017502 001412 BEQ 3$ zz1F ZERO GET OUT 
(1) 017504 006301 ASL R1 ri*2 
(1) 017506 006102 ROL R2 
(1) 017510 006301 ASL R1 32%4 
(1) 017512 006102 ROL RO 
(1) 017514 006301 ASL R} 33*8 
(1) 017516 006102 ROL Re? 
(1) 017520 042716 177770 BIC #*°C7, (SP) STRIP THE ASCII JUNK 
(1) 017524 062601 ADD (SP)+,R1 ;;ADD IN THIS DIGIT 
(1) 017526 000764 BR 2$ gst 
(1) 017530 005726 3$: TST (SP)+ :; CLEAN TERMINATOR FROM STACK 
(1) 017532 010166 000012 MOV R1,12(SP) :;SAVE THE RESULT 
(1) 017536 010237 017552 MOV R2,$HIOCT 
<3) 017542 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 017544 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 017546 012600 MOV (SP)+,RO ::POP STACK INTO RO 
(1) 017550 000002 RTI : ;:RETURN 
(1) 017552 000000 SHIOCT: .WORD 0O : HIGH ORDER BITS GO HERE 
or -SBTTL APT COMMUNICATIONS ROUTINE 
(2) FLARE REAR ERAEEEAE AREER ARREREREERAREAEAAREERARAEKERREERR EES 
(1) 017554 112737 000001 020020 S$ATY1: MOVB #1,$FFLG ::;TO REPORT FATAL ERROR 
(1) 017562 112737 000001 020016 S$ATY3: MOVB #1,SMFLG :;TO TYPE A MESSAGE 
(1) 017570 000403 BR SATYC 
(1) 017572 112737 000001 020020 S$ATY4: MOVB #1,SFFLG :;TO ONLY REPORT FATAL ERROR 
(2) 017600 SATYC: 
(3) 017600 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
(3) 017602 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
(1) 017604 105737 020076 TSTB SMFLG >:SHOULD TYPE A MESSAGE? 
(1) 017610 001450 BEQ 5$ 3:7 1F NOT: 
(1) 017612 122737 000001 001210 CMPB WAPTENV, SENV : OPERATING UNDER APT? 
(1) 017620 001031 BNE 3$ >:1F NOT: BR 
(1) 017622 132737 000100 001211 BITB #APTSPOOL .SENVM ;;SHOULD SPOOL MESSAGES? 
(1) 017630 001425 BEQ 3$ ::1F NOT: BR 


CVMND-A MNCAA 
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COP PRP PR PR PP PP LP PP LP PP PPO LPL OO LL LLL PF Ff fn fm hm fm Fm, 
ee eee eee ee ee ee ee ee a ee a a a ee ee ee a ee a es es ee Se ee es ee 


: 


017632 
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APT COMMUNICATIONS ROUTINE 


DIAGNOSTIC 
017600 000004 
062766 000002 
005737 001170 
001375 
010037 001204 
105720 
001376 
163700 001204 
200 
010037 001206 
piel ae 000004 
017637 
062766 000002 
013746 177776 
737 015640 
105737 020020 
001416 
005737 001210 
001413 
005737 001170 
001375 
017637 000004 
062766 000002 
005237 001170 
105037 020020 
105037 020017 
105037 020016 
012601 
012600 
000207 
000 
000 
000 
020022 
000200 
000001 
000100 
000040 


000004 


001170 


017730 
000004 


001172 
000004 


2$: TSTB 


12$: 


SMFLG: 
SLFLG: 
SFFLG: 


APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


@4 (SP) ,RO 
#2,4(SP) 
oe 


: 
RO, Pied 
(RO) + 


2$ 
$SMSGAD , RO 
RO 


RO, $MSGLGT 
oe 


a4 (SP) .4$ 
#2,4(SP) 
177776, =(SP) 
PC. STYPE 


SFFLG 
12$ 
SENV 


12$ 

> wala 

yt or 
24(SP) 

SMSCTYPE 

SFFLG 

$LFLG 

$MFLG 

(SP)+,R1 


(SP)+,RO 
PC 
0 


0 
0 
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;3GET MESSAGE ADDR. 
;;BUMP RETURN ADDR. 
+3SEE IF DONE W/ LAST XMISSION? 
3I1F NOT: WAIT 
::PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 


:;SUB START OF MESSAGE 

;;GET MESSAGE LNGTH IN WORDS 
:;PUT LENGTH IN MAILBOX 
:;TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
-BUMP RETURN ADDRESS 
: PUSH 199776 ON STACK 
«CALL TYPE MACRO 


:;SHOULD REPORT FATAL ERROR? 
dé NOT: BR 
: ;RUNNING UNDER API? 
: NOT: BR 
: FINISHED re MESSAGE ? 
33GET ERROR # 

:BUMP RETURN ADDR. 
77 TELL APT TO TAKE ERROR 
:: CLEAR FATAL FLAG 
3;CLEAR LOG FLAG 
3;CLEAR MESSAGE FLAG 
::;POP STACK INTO R1 
: sPOP STACK INTO RO 


: FATAL FLAG 


CVMND-A MNCAA 
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1066 


Fe ee te, ee ee, i, te, ie, ee, ee, ee, a, a, ee a o,f a oe ee 
ee ee ee ee a a a a a ee A eee 


DIAGNOSTIC 


TRAP DECODER 


016546 


016456 
017020 
017110 
017452 


000001 


000002 


020056 


000004 000002 


MACY11 27(654) 


C 6 
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SEQ 0067 


.SBTTL TRAP DECODER 


DEERE SISSIES ISIS IITIIIITIEISIOIOITIOICIOIOIOITIOIUITIOII IIIT ITO 
 RTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
-*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) ;;SAVE RO 
MOV 2(SP) ,RO + GET TRAP ADDRESS 
TST -(RO) CKUP BY 2 
MOVB (RO) ,RO 7 3GET RIGHT BYTE OF TRAP 
ASL RO sPOSITION FOR INDEXING 
MOV $TRPAD(RO),RO  ;:; INDEX TO TABLE 
RTS RO ;;GO TO ROUTINE 


;;THIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 


$TRAP2: MOV (SP) ,-(SP) 3;MOVE THE PC DOWN 
MOV 4(SP) ,2(SP) ;;MOVE THE PSW DOWN 
RTI ;sRESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUT INE 

$TRPAD: .WORD $TRAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
$TYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
$TYPBN ::CALL=TYPBN  TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
SGTSWR ::CALL=GTSWR § _TRAP+7(104407) GET SOFT-SWR SETTING 
SCKSWR ::CALL=CKSWR _- TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
SRDCHR ::CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
S$RDLIN ::CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
$RDOCT =:CALL=RDOCT  TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 


. END 
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CVMNDA P11 CROSS REFERENCE TABLE SEQ 0068 
ABASE = 171060 204 34 110 111 112 113 924 
ACDW1 = 000000 84 
ACDW2 = 000000 34 
ACPUOP= 000000 34 
ADBR 001464 1184 812 
ADCS 001462 1174 806* 809* 810 
ADDWO = 000000 34 
ADDW1 = 000000 34 
ADDW10= 000000 34 
ADDW11= 000000 34 
ADDW12= 000000 34 
ADDW13= 000000 34 
ADDW14= 000000 34 
ADDW15= 000000 34 
ADDW2 = 000000 34 
ADDW3 = 000000 34 
ADDW4 = 000000 34 
ADDWS = 000000 34 
ADDW6 = 000000 34 
ADDW7 = 000000 34 
ADDW8 = 000000 34 
Dw9 = 000000 34 
ADEVCT= 000000 34 
ADEVM = 000000 34 
ADJR18 012505 606 676 9764 
ADJR19 012266 606 648 9754 
ADJR20 012345 608 9784 
ADJR21 012324 608 9774 
ADJR41 012401 610 9804 
ADJR42 012362 610 9794 
ADJR43 012457 612 9824 
ADJR44 012420 612 9814 
AENV = 000000 44 
= 000000 34 
AFATAL= 000000 34 
= 000000 34 
AMADR2= 000000 34 
AMADR3= 000000 34 
AMADR4= 000000 34 
AMAMS1= 000000 34 
AMAMS2= 000000 34 
= 000000 34 
= 000000 34 
= 000000 34 
AMSGLG= 000000 34 
AMSGTY= 000000 34 
AMTYP1= 000000 34 
AMTYP2= 000000 34 
AMTYP3= 000000 34 
AMTYP4= 000000 34 
APASS = 000000 
APRIOR= 000000 
APTCSU= 000040 1059 


10634 
APTENV= 000001 1050 1059 10634 
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CVMNDA .P11 CROSS REFERENCE TABLE SEQ 0069 

APTSIZ= 000200 157 10634 

APTSPO= 000100 1059 10634 

ASWREG= 000000 34 

ATESTN= 000000 34 

AUNIT = 000000 34 

AUSWR = 000000 34 

AVECT1= 000000 br 

AVECT2= 000000 34 

BADUNT 010404 168* 625 9254  1050* 

BASEXC 002540 209 237# 

BEGIN 001502 24 1524 1052 

BEGIN1 001506 151 1534 

BIPTXT 012645 779 9884 

BITO = 000001 184 292 926 

BITOO = 000001 184 

BITO1 = 000002 184 

BITO2 = 000004 184 

BITO3 = 000010 184 

BITO4 = 000020 184 

BITOS = 000040 184 

BITO6 = 000100 184 

BITO7 = 000200 184 

BITO8 = 000400 184 1037 

BITO9 = 001000 184 1037 1050 

BIT] = 2 184 

BIT10 = 002000 184 

BIT11 = 000 184 339 348 366 374 394 403 424 434 565 1037 

BIT12 = 010000 184 

BIT13 = 020000 184 1050 

BIT14 = 040000 184 1037 

BIT15 = 100000 184 284 56% 

BIT2 = 000004 184 

BITS = 000010 184 564 788 

BIT4 = 000020 184 

BITS = 000040 184 

BIT6 = 000100 184 198 472 482 493 503 616 

BIT? = 000200 184 808 

BIT8 = 000400 184 

BIT9 = 001000 184 

BPTVEC= 14 184 

CALDAC 007126 606 6 0 612 6934 

CKSWR = 104410 1037 1050 10664 

COMPAR 010032 593 602 654 682 705 731 753 776 8344 

CONVRT 007700 590 599 651 679 701 728 750 773 8034 

CR = 000015 184 1059 

CRLF = 000200 184 190 1059 

CSPACE 010020 189 649 677 725 747 770 782 8274 

CTRCHA 010250 879s 880* 881 885 8894 

CTRLCG 010174 62, 798 867 8778 896 908 1037 1050 

DACBAD 010402 634* 667* 695* 717* 739* 761* 9244 1029 

DACO 001446 1104 172s 312 324% 325 332s 333 340* 341 348* 349% 438* 443 
469* 473 515s 606 859 898« 915* 1025 

DAC1 001450 1114 173* 176* 313 352s 353 359* 360 367* 368 374* 375* 439* 


449 479* 483 516* 608 861 899* 916* 1026 
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DAC2 001452 1124 174* 177* 314 379* 380 387* 388 395* 396 403* 405* 440* 
455 490* 494 517* 610 863 900* 917* 1027 

DAC3 001454 1134 175* 178* 315 409* 410 417* 418 425* 426 434% 435* 441* 
461 499» 504 518* 567* 612 791% 865 901* 918* 1028 

DDISP = 177570 184 34 157 

DFO 013770 4] 46 57 56 61 66 7) 77 82 87 92 99 104 
106 10314 

DH1 012114 44 49 54 59 90 97 9684 

DH17 012242 106 9714 

DH2 012154 39 9694 

DH6 012176 64 69 75 80 85 102 9704 

DISPLA 001142 344 157* 1037* 1050* 

DISPRE 000174 C44 157 

DOT 013516 203 10184 

DRIN 001460 1164 304 568 574 

DSWR = 177570 184 34 157 

DT1 013650 40 10244 

DT17 013756 106 10504 

DT2 013660 45 98 10254 

DT3 013674 50 10264 

DT4 013710 55 10274 

DTS 013724 60 91 10284 

DT6 013740 5 70 76 81 86 103 10294 

DYNCAL 010314 212 9064 

EMTVEC= 30 1 157* 

EM1 010432 38 9454 

EM10 11721 74 9524 

EM11 011174 79 9534 

EM12 011237 84 9544 

EM15 011302 89 9554 

EM14 011354 9564 

EM15 011402 9574 

EM16 011442 101 9584 

EM17 011520 106 9594 

EM2 010531 43 9464 

EM3 010574 48 9474 

EM4 0637 53 9484 

EMS 010702 58 9494 

EM6 010745 63 9504 

EM7 111034 8 9514 

ERRTOT 012002 619 9634 

ERRVEC= 000004 184 157* 252* 311* 319* 321* 1037* 

EVER 001444 1094 148* 154* 201* 270 283* 284* 286 512 1030 

FIVUNI 007470 606 608 610 612 7594 

FOUND1 012046 275 9654 

FOUND2 012072 279 967# 

FRONT 011723 188 9624 

FULRMP 010102 224 8574 

GAIDAC 007002 606 608 610 612 6654 

GNS = *eeeee 24 190 1066 

GTSWR = 104407 190 230 887 10664 

HT = 000011 184 1059 

INIT? 002114 169 1814 


INIT? 006556 614 6164 





CVMND-A MNCAA 
CVMNDA P11 


LOTVEC= 000020 
LAMPS 007630 
LDSPAC 011601 
LDTRAP oe ang. 


LF = 

LOGIC 002600 
MASKNM 010406 
MESGD 012031 
MSGSW = =011647 
MTEST 002310 
MTEST1 002314 
N51 013003 
OFFDAC 006642 
PC =%000007 


PIRQVE= 

PRIMBA 0O 

PR IMBB 1 
PRIMEO 013137 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PR3 = 000140 
PRG = 0002 
PRS = 000240 
PR6 = 000300 
PR7 = 340 
PS = 177776 
PSW = 177776 
PWRMSG 015344 
PWRVEC= 000024 
P51175 013061 
RDCHR = 104411 
RDLIN = 104412 
RDOCT = 104413 
REMAIN 005334 
RESTRT 001466 
RESVEC= 10 
RSTRT 001516 
RUNIT 002534 
RO =% 

R1 =%000001 
R2 =%000002 
R3 =%000003 
R4 =%000004 
eh =%000005 


DIAGNOSTIC 
CROSS REFERENCE TABLE 


237 
196 


eeerereeee 


1052 
84 


MACY11 27(654) 


669 


10664 


796* 
1056* 


606* 
679* 


291 


787 


1050 


884 


202* 
731s 
862* 
1037* 


1052* 


610* 
693 
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858 


1060 


245% 
747% 
864s 

1050s 


895 


291% 
753* 
866* 
1051* 


222 
244 
863« 
916 


847% 


632 
701* 


907 


593* 

770* 

86/7* 
1052 


711* 


1059* 


869* 
918 


1035* 


715 


614s 
782* 
888* 
1060* 


62/7* 
787* 
895* 
10635* 


834 
871 
920* 


1052* 


651* 
719 


SEQ 0071 


649* 
(98* 
896* 


836* 
897* 
1035* 


1062* 


660* 
728* 
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734* 737 740 741 750* 756* 759 762 764 773* 783* 803 820* 
1035* 1052* 1056* 


R6 =%000006 184 157* 

R7 =% 7 184 

SELDX 072456 641 9834 

SELDO 012701 606 643 724 746 769 78) 9934 

SELD1 012710 608 9944 

SELD2 012717 610 9954 

SELDS 012726 612 9964 

SP =%000006 184 157* 158* 159s 205 238* 242 263 276* 317 521* 522* 614* 


620* 625* 786* 829 834* 835* 843 844 845* 847 848 857s 883 
894* 906* 1034* 1035* 1037* 1050* 1051* 1052* 1056* 1059* 1060* 1062* 10635* 


1066* 
SPREAD 010420 592* 601* 653* 681* 704* 730* 752* 775% 841 9314 1029 
STACK = 001100 184 157 786 857 894 906 
STATIC 010252 227 8944 
STKLMT= 177774 184 
SWR 001140 344 157* 190 258 897 909 1037 1050 1052* 1060* 
SWREG 000176 Coe 157 190 1060 
SwWwO = 000001 184 
SWwOO = 000001 184 
SwO1 = 000002 184 
SWO2 = 000004 184 
SwOS = 000010 184 
SwO4 = 000020 184 
SWOS = 000040 184 
SWwO6 = 000100 184 
SwO7 = 000200 184 
SWwO8 = 000400 184 
SWwO9 = 001000 184 
Swi = 2 184 
SW10 = 002000 184 
SW11 = 000 184 
SWi2 = 010000 184 258 
SW13 = 020000 184 
SW14 = 040000 184 
SW15 = 100000 184 
SWw2 = 000004 184 
SW5 = 000010 184 
SW4 = 000020 184 
SWS = 184 
SW6 = 000100 184 
SW7 == 000200 184 
SW8 = 000400 184 
SW9 = 001000 184 
TBI TVE= 14 184 
TEMP 010410 153* 182 501* 927a 
TENTXT 012553 744 9864 
TENVLT 0073 606 608 610 612 7374 
TESTER 001474 26 1504 
TKVEC = 184 1060* 
TPVEC = 184 
T = 000034 184 157s 
TRIVEC= 000014 184 
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CVMNDA.P11 CROSS REFERENCE TABLE SEQ 0073 
TRYAGN 012735 658 686 9978 
TSTR2 001456 1154 302* 
TST 003034 2994" S22 
TSTIO)§3=—.: 003514 3504 

TST11 003550 355 3574 
TST12 362 3654 
TST13 3744 

TST14 =: 003752 3754 

TST15 046 3778 

TST16 4 =004102 382 3854 
TST17 004140 390 3934 
TST2 003104 301 307 3104 
TST20 004212 4034 

TST21 004 4054 

TST22 004400 4074 

TST23 0044 34 412 4154 
TST24 004472 420 4234 
TST25 004544 4344 

TST26 004636 4354 

TST27 004732 4374 

TST3 003162 3224 

TST3O 3 3=—. 0005114 463 4664 
TST31 5166 475 4784 
TST32 005232 485 4894 
TST33 005270 495 4984 
TST34)0=—s-_—« 005 334 S05 5104 
TST35)§ «©=—6. 0055434 $13 5574 
TST36 ©005456 559 5634 
TST37 ©005640 5884 

TST4 003216 327 3304 
TST40 8 §=—.005702 594 S974 
TST41 005744 603 6 
TST42 005762 6064 

TST43 @©005776 6064 

TST44 006016 6064 

TST45 006032 6064 

TST46 006046 6 

TST47 006062 6084 

TSTS 003254 335 3384 
TSTSO 006100 6084 

TST51 «006114 6084 

TSTS2 006134 6084 

TSTS3 006150 6084 

TST5S4 006164 6084 

TST55 6104 

TSTS6 006216 6104 

TSTS7 232 6104 

TST6 003326 3484 

TST60 006252 6104 

TST61 006266 6104 

TST62 006302 6104 

TST65 006316 6124 

TST64 006334 6124 
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CVMNDA P11 CROSS REFERENCE TABLE SEQ 0074 

TST66 006370 6124 

TST67 006404 612M 

TST? 003420 3494 

TST70 612 

TWOTXT 012515 722 9854 

TWOVLT 007234 606 608 610 612 7154 

TYPBN = 104406 625 1066 

TYPDS = 104405 277 614 621 1051 1066# 

TYPE = 104401 186 188 190 196 203 232 237 240 27% 278 614 619 624 
626 640 642 644 647 657 672 675 685 722 723 244 745 
767 768 779 780 827 1034 1035 1050 1051 #1052 1056 1059 1060 

TYPOC = 104402 239 = 1051 Ss(«1060—Ss«*1:006 6 

TYPON = 104404 10664 

TYPOS = 104403 1066 

UNITBD 002536 235#@ 1024 1025 1026 1027 1028 1029 1030 1050s 

UNITXT 012610 767 9874 

V 001442 1084 2 1 516 517 518 

V144 010426 592 601 934m 

V2034 30 598 9354 

V5744 010424 589 9334 

WFETST 010422 150* 152% 184 272 300 558 9324 

SAPTHD 001000 334 

SASTAT= seeeee UJ 1063 

$ATYC 017600 10634 

$ATY1 017554 10634 

$ATY3 017562 1059 10634 

$ATY4 017572 1050 1063 

$AUTOB 001134 344 = =6.190* = 191 -—s«21060 

$BASE 001244 344 89177 238 244% 249 

$BDADR 001122 34a 

$BDDAT 001126 34H © 249% = 253 254% 304% 305" 306 325 326 333" = 334 341" 342 
348% 349% 353" 354 360" 361 368* 369 374% 375% 380% 381 388« 
389 396* 397 4O03* 405" 4108 411 418* 419 426* 427 434e 435 
4432 444 449* 450 455x 456 461* 462 473% 474 483* 484 494% 
504* 568% 569% 571 574e 575 579 819s 837 1024 1025 1026 1027 
1028 1029 

$BELL 017404 1 

$BIN 014052 1034#* 

$CDW1 001250 

SCHARC 016116 1059#* 

SCKSWR 016456 1 1066 

SCMTAG 001100 344 =—«157 

$CM3 = 34a 

SCNTLC 017410 1060# 

SCNTLG 017422 1060 

SCNTLU 017415 10604 

SCPUOP 001216 34a 

SCRLF 001165 344 1050 1051 1059 1060 

$DBLK 014270 1035 

SDEVCT 001200 344 = 290" = ss 14 

SDEVM 001246 34a 

532 6144 


CVMND-A MNCAA 
CVMNDA .P11 


SENDAD 
SENDCT 





DIAGNOSTIC 
CROSS REFERENCE TABLE 


190 
6144 


626 
90 
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6144 


1051 
1059 


1037 
1037* 


157 
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1050 
1050 
1063 


6144 


1026 


620 
1050 


7 
1025 


1060 


1050 


190 


1059 


1027 


1050* 


578* 
1026 


1037 


1028 


579 
1027 


1050 


1029 


Qe 
1028 


1059 


1030 


598* 
1029 


1050* 


1051 


SEQ 0075 


CVMND-A MNCAA 
C -P11 


VMNDA 





INT 


STK 
STKQEN= 


017440 
204 


eeaanne8 
ea2aane 


0161 
016170 


DIAGNOSTIC 
CROSS REFERENCE TABLE 
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1050 


1060 


3304 
4054 
56354 


467 


1059 


614 


614* 


3484 
4154 
5974 


638 


1050 
299 
385 


498 
1052 


365* 
597s 


310 
393 
510 


374% 
606* 


3504 
4344 
6084 


720 


322 
557 


375* 
608* 


357m 
4354 
6104 


742 


330 
565 


393* 
610s 


338 
588 


405* 
612* 


3744 
4664 


1037 


348 
597 


405* 
614* 


3754 
4784 


349 
425 
606 


423% 
1057* 


SEQ 0076 


3778 
4894 


350 
434 


434% 


CVMND~-A MNCAA 
CVMNDA.P11 


STKQIN Ae dt 


= eeeeee 


= 001000 


DIAGNOSTIC 
CROSS REFERENCE TABLE 


MACY11 27(654) 


614s 


165* 


255* 


10634 
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1057* 


166* 


260 


32a 


1050 


10594 


264 


1063 


276 


1066 


280 


877 1060* 

327 3304 335 
3778 382 3854 
354 437# 463 
557m 559 5634 
285 286 289* 
614 10354 1037 


3384 3484 
390 3934 
4664 475 
5884 5 
Sli* $12 
1050 10514 


SEQ 0077 


1030 


1052 


CVMND~A_ MNCAA 
CVMNDA.P11 

ADJR 9728 
COMME N 184 
DYNIC 1344 
ENDCOM 184 
ERROR 184 
383 

486 
ESCAPE 184 
FIXUNT 10384 
GETPRI 184 
GE TSWR 184 
T 184 
NEWTST 184 
393 

563 
184 
SH 184 
REPORT 184 
SCOPE 184 
393 

563 
LD 9904 
SETPRI 184 
SETTRA 10664 
SE TUP 184 
SKIP 184 
374 

4635 
SLASH 184 
SPACE 184 
STARS 184 
375 

498 

1051 
SUBTST 1204 
SUPE 5254 
SWRSU 184 
TRMTRP 10664 
TYPBIN 184 
YPDEC 184 
TYPNAM 184 
TYPNUM 184 
TYPOCS 184 
TYPOCT 184 
TYPTXT 184 
SSCMRE 344 
SSCMTM 34a 
SSESCA 184 
SSNEWT 184 
393 

565 
SSSET 10664 
SSSETM 1574 
S$SKIP 184 


977 


322 


DIAGNOSTIC 
CROSS REFERENCE TABLE 
975 976 
348 374 
268 288 
391 399 
496 506 
1050 
1904 
299 310 
403 405 
588 597 
1035 1052 
1035 1052 
299 310 
403 405 
588 597 
993 994 
1060 
157 
262 285 
375 382 
475 485 
31 33 
377 385 
510 557 
1052 1056 
349 375 
1574 
625 
614 1051 
190 
1051 1060 
299 310 
405 405 
588 597 
301 307 


327 


978 


979 


328 
413 
595 


338 
423 
610 


355 


980 


pete 
Mm oo 


3 


981 


349 
435 


382 
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982 


350 
437 


357 
466 


365 
478 


374 
489 


465 


375 
498 


475 


374 
464 


377 
510 


377 
510 


377 
510 


485 


SEQ 0078 


375 
476 


385 
557 


495 
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CVMNDA .P 11 CROSS REFERENCE TABLE SEQ 0079 
505 513 559 594 603 

~EQUAT 114 18 

» HEADE 114 17 

. SE TUP 124 156 

. SWRH I 134 

- SWRLO 23a 

-SACT1 154 31 

. SAPTB 154 344 

- SAPTH 154 33 

. SAPTY 15# 1063 

-SCATC 114 24 

- SCMTA 114 34 

. SEOP 114 614 

. SERRO 114 1050 

SERRT 134 #81051 

. SPARM 12a 

- SPOWE 124 1052 

. SRDOC 144 1062 

. SREAD 124 1060 

- SSAVE 124 

$SSCOP 124 1037 

- SSPAC 124 

- $SWDO 124 

- STRAP 124 1066 

. $TYPB 134 1034 

$TYPD 134 1035 

STYPE 114 124 1059 

$STYPO 114 1056 


CVMND-A MNCAA 
CVMNDA .P11 
ADCB 1034 
ADD 176 
060 
ASL 519 
ASLB 1035 
ASR 345 
1063 
BCC 1035 
BEQ 157 
370 
457 
1051 
BGE 1037 
BGT 614 
BHI 1037 
BIC 305 
BICB 206 
BIS 198 
BISB 1051 
BIT 258 
BITB 157 
BLE 842 
BLO 1060 
BLOS 1060 
BLT 1035 
BMI 257 
BNE 157 
273 
559 
1035 
BPL 811 
BR 149 
732 
1060 
CCC 582 
CLC 1034 
CLR 152 
351 
1037 
CLRB 1035 
CMP 157 
375 
474 
CMPB 190 
1063 
COM 577 
DEC 614 
DECB 1056 
EMT 18 
HALT 24 
INC 148 
INCB 809 
IOT 18 
JMP 24 


DIAGNOSTIC 
177 178 
1062 1063 
1051 1060 
348 372 
185 190 
374 375 
463 475 
1056 1059 
1035 1056 
569 575 
284 472 
1037 1050 
1059 1063 
1056 1059 
271 1035 
183 190 
281 346 
586 639 
1037 1050 
839 878 
151 157 
754 777 
1062 1063 
815 
153 154 
378 408 
1051 1052 
1037 1059 
190 260 
381 389 
484 571 
207 210 
792 794 
1059 
1050 1052 
150 190 
1037 1050 
25 26 


MACY11 27(654) 
CROSS REFERENCE TABLE 


515 
1066 
400 


193 


516 


403 


517 


430 


614 


212 


518 


1035 


215 


eh: 
19-SEP-78 08:58 PAGE 31-13 


812 
584 
327 
412 
580 


1060 
1050 


1037 


218 


1050 


221 


1060 


1056 


227 


233 


246 


SEQ 0080 


1¢59 


1050 


362 
451 
1050 


269 


CVMND-A MNCAA 
CVMNDA P11 
282 
JSR 167 
627 
770 
908 
MOV 157 
249 
338 
374 
416 
448 
510 
597 
637 
696 
740 
788 
857 
916 
1066 
MOVB 157 
NEG 840 
614 
RESET 155 
ROL 1034 
ROR 583 
RTI 157 
RTS 179 
1059 
SEC 1034 
SUB 349 
SWAB 804 
TRAP 1 
TST 182 
315 
883 
TSTB 810 
ASCII 34 
ASCIZ 34 
957 
976 
996 
BLKB 1 
BLKW 1035 
-BYTE 34 
1020 
-DSABL 1060 
- ENABL 
.END 1 
. ENDC 17 
307 
365 
420 
495 


DIAGNOSTIC 
320 560 
181 189 
649 651 
773 776 
910 912 
159 163 
252 276 
339 340 
375 379 
417 418 
449 454 
S22 557 
598 601 
646 650 
698 699 
74) 748 
789 791 
859 861 
917 918 
190 1034 

1035 1056 
1050 
197 471 
1056 1062 
816 
160 166 
660 688 
1060 1063 
375 405 
184 190 
349 375 
1035 1037 
877 1035 
1003 1005 
190 614 
958 959 
977 978 
997 999 
614 965 
1031 1034 
1060 
18 23 
310 316 
370 374 
423 428 
498 505 


GNO MACY11 27(654) 
CROSS REFERENCE TABLE 


D 7 
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1062 
888 


1066 
922 


313 
829 


955 
971 
994 


1016 


SEQ 0081 


1051 


1018 


E 7 
CVMND-A MNCAA DIAGNOSTIC MACY11 27(654) 19-SEP-78 08:58 PAGE 31-15 
CVMNDA .P11 CROSS REFERENCE TABLE | SEQ 0082 


610 612 614 655 683 706 710 1034 1035 1037 1050 1051 1052 1056 


495 498 505 510 513 557 559 563 72 580 588 594 97 6 
610 612 4% 6 683 706 71 1034 1035 1037 1050 1051 1052 1056 
1059 1060 1062 1063 1066 
IFF 18 23 31 33 34 157 190 262 285 287 299 301 307 310 316 


510 513 557 559 563 2 8 88 594 597 60 06 608 610 612 
Ray 655 6835 706 710 1034 1035 1037 1050 1051 1052 1056 1059 1060 1062 

IFT 190 1037 1050 1060 1062 

IF TF 14 1037 1050 1060 1062 

LIF 17 3 2 3 157 190 614 625 1037 1050 1051 1059 1060 1066 

. IRP 156 299 310 322 330 338 348 349 350 357 6 374 375 377 385 
393 403 405 407 415 423 434 3 466 478 89 98 510 557 
563 588 597 606 608 610 612 1035 1037 105 105 106 1063 

LIST 6 16 18 23 4 34 156 157 90 98 310 2 330 338 
348 349 350 357 365 374 375 377 385 393 403 405 407 415 423 
434 435 437 4 478 89 498 510 557 563 588 597 606 608 610 
612 614 854 939 1037 1050 1060 1066 

-MACRO 23 34 120 134 157 2 972 1038 1066 

on, 11 12 13 14 15 34 157 90 

- ME X 

-NLIST 1 7 18 3 24 34 156 157 190 293 299 310 322 330 3 
348 349 350 357 365 374 375 377 385 393 403 405 407 415 425 
434 435 437 466 478 489 498 510 557 563 588 597 606 608 610 
612 614 851 957 1037 1050 1060 1066 

PAGE 

REPT 24 

- SBTTL 23 24 31 33 157 190 236 248 294 295 296 297 299 
310 322 330 338 348 349 350 357 365 374 375 377 385 393 403 
405 407 415 423 434 435 437 466 478 489 498 510 557 563 5 
597 608 610 612 614 630 663 691 71 7 7 7 8 825 
8 8 85 855 875 892 904 938 943 1034 1035 1037 1050 1051 1052 

ras 1056 1059 1060 1062 1063 1066 

; L 

. WORD of 31 33 34 614 1051 1052 1056 1059 1060 1062 1063 1066 


ERRORS DETECTED: 0 


Ae 
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CVMNDA P11 SEQ 0083 


*CVMNDA, CVMNDA/ CRF =CVMNDA 
RUN-TIME: 31 14 2 SECONDS 
CORE USED: 26K 


